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MSX-DOS2WJS 



MSXSBUG2 ^- 

fli»i9.8oon(a£fii.ooon) 
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160 


REM 


IF ©Y>140 THEN 1=90 


170 


REM 


MOVE I , 20 


180 


REM 


GOTO 100 
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100 


REM 


X0=100:Y0=100 


110 


REM 


SCAL 


120 


REM 


IF ©L=-l THEN 100 


130 


REM 


POSIT ©X, ©Y, ©R, ©L 


140 


REM 


X1=©P+ <©P-X0)*10 


150 


REM 


Y1=©Q4- <@Q-Y0) *10 


160 


REM 


DEGREE ©X, ©Y, XI , Yl 


170 


REM 


FIRE ©P 


180 


REM 


X0 = ©P : Y0 = ©Q 


190 


REM 


GOTO 110 
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100 


REM 


R = 


110 


REM 


SCAN R, 5 


120 


REM 


IF ©L=-l THEN 160 


130 


REM 


MOVE R, 20 


140 


REM 


FIRE R 


150 


REM 


GOTO 110 


160 


REM 


R=FRM(R+5) :G0T0 110 
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100 


REM 


RR= (SGN (§X-75) +1)*90 


101 


REM 


C0 = 25 


102 


REM 


SCAL 


105 


REM 


IF ©L>=85 THEN 110 


106 


REM 


IF ©L=-l THEN 140 


110 


REM 


MOVE RR, 10 


130 


REM 


GOTO 100 


140 


REM 


FIRE ©R 


150 


REM 


IF 6Y<15 THEN -C0=10 


155 


REM 


IF 6YM30 THEN C0=10 


160 


REM 


SCAL 


165 


REM 


MOVE (©R+84) mod 360, CO 


170 


REM 


FIRE ©R 


190 


REM 


GOTO 150 
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100 


REM 


D=200: 10=90 


105 


REM 


SCAL 


106 


REM 


IF ©L=-l THEN 110 


107 


REM 


IF ©L<85 THEN 200 


110 


REM 


IF ©D=D THEN 105 


120 


REM 


D=©D:SCAL 


150 


REM 


I=FRM(©R+I0) :MOVE I . 10 


190 


REM 


GOTO 105 


200 


REM 


SCAL 


210 


REM 


IF ©L>40 THEN 230 


211 


REM 


IF ©L>25 THEN 240 


220 


REM 


FIRE ©R:M0VE ©R,8 


225 


REM 


GOTO 200 


230 


REM 


MOVE ©R,25 


235 


REM 


GOTO 200 


240 


REM 


FIRE ©R:MOVE ©R, 25 


245 


REM 


GOTO 200 
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100 


REM 


XF=1 :HP=200 


110 


REM 


IF ©X<79 THEN XF=-1 


120 


REM 


YF=1-RND (2) *2 


200 


REM 


SCAL 


205 


REM 


IF ©L=>45 THEN 220 


210 


REM 


IF ©L=-l THEN 220 


215 


REM 


GOSUB 900 


220 


REM 


XX=XF*73+80 


225 


REM 


YY=YF*73+SO 


230 


REM 


DEGREE ©X.©Y.XX,YY 


235 


REM 


IF ©Q<=5 THEN 250 


240 


REM 


MOVE ©P, 25 


245 


REM 


GOTO 200 


250 


REM 


DEGREE ©X, ©Y, 80, 80 


255 


REM 


MOVE ©P, 1 


260 


REM 


GOSUB 300 


265 


REM 


MOVE ©P,0 


270 


REM 


GOTO 200 


300 


REM 


IF HPOID THEN 315 


305 


REM 


IF ©L=>70 THEN 355 


310 


REM 


IF ©L=-l THEN 355 


315 


REM 


HP=©D 


320 


REM 


POSIT ©X,©Y,©R,©L 


325 


REM 


TX = ABS <©p-ex) 


330 


REM 


TY-ABS (©Q-©Y) 


335 


REM 


IF TXOTY THEN 345 


340 


REM 


XF=-XF:GOTO 399 


345 


REM 


XF=XF*SGN (TX-TY) 


350 


REM 


YF=YF*SGN (TY-TX) 


355 


REM 


IF ©L=-l THEN 399 


360 


REM 


FIRE 8R 


399 


REM 


RETURN 


900 


REM 


MOVE ©R, 25 


910 


REM 


FIRE ©R 


920 


REM 


SCAL 


930 


REM 


GOTO 900 


999 


REM 


RETURN 
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10 REM DM=@D:TT=50 

20 REM MX=30:MY=80:XX=149:IF @X>80 THEN MX = !30:XX=O0 

30 REM DEGREE @X ,@Y ,MX ,MY :RR=eP 

50 REM SOTO 120 

100 REM RR=FRM(RR+RND<TT*2)-TT> 

102 REM POSIT @X,@Y.RR,16:MX=@P;WY=eH 

104 REM IF MXOO OR MX-130 OR MY<:'30 OR MY>130 THEN 108 

106 REM GOTO 120 

108 REM DEGREE <?X ,@Y ,80 ,80 :RR=@P :GOTO 102 

120 REM TRAMS MX .MY .20 : DEGREE ©X ,f?Y .MX .MY 

125 REM IF @Q<=1 THEN 100 

130 REM SCAL 

150 REM IF BLO-1 THEN 200 

160 REM IF DM -STu-lS OR @D<80 THEN DM=@D:60T0 600 

163 REM IF <?E<50 THEN 700 

165 REM IF DM>@D THEN DM=@D:GOTO 100 

170 REM GOTO 120 

200 REM MOVE <?R.0:FIRE @R 

228 REM POSIT r?X.S'Y,eR,gL:MX=@P:MY=eQ 

240 REM SCAL 

260 REM IF ei_=-l THEN 120 

2S0 REM IF DM>@D THEN DM=@D:SOTO 400 

300 REM GOTO 200 

400 REM MOVE @R,24sFIRE @R 

420 REM POSIT @X -G'Y .@R .<?L :MX=@P :MY=@Q 

440 REM DM=©D 

460 REM SCAL 

480 REM IF PI..---1 THEN 120 

500 REM GOTO 400 

600 REM DEGREE XX .80 ,@X ,@Y :KR=@P :MS=1 :LL=10 :KS"24 

610 REM POSIT @X,@Y.FRM(KR+BI8) ,LLsXl=eP:Yl=eQ 

620 REM POSIT QX ,@Y ,FRM<KR-80> ,LL.!X2=@PjY2=@Q 

650 REM AB=X2:CD=Y2:IF MS=1 THEN AB=X 1 :CD=Y I 

660 REM TRANS AB.CD.KS 

670 REM SCAL: IF 6LO-1 THEN 400 

675 REM IF DM. <s'D THEN LL=LL+2 :DM-eD :GOTO 610 

678 REM IF <*E<15 THEN 700 

680 REM DEGREE SX ,@Y ,AB,CD:IF @Q<=1 THEN MS=MS»- 1 :GOTO 650 

685 REM KS=24:IF SQM6 THEN I S= 1 

690 REM GOTO 660 

700 REM SCAL. sIF SLO-1 THEN 200 

710 REM MOVE <?R,0:GOTO 700 
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•>*:*•"< GO *'v >!£*<, £-*>L< 






•«* NET-WORK 



Wl£Kw-X*aiMII 



r T 7 JU 3*0 * - Xj &£& T* < ft 
g?><7) P # -y h £ 7°P ?'v 5 > 

^ L T*§¥<7) M?b£ mjb-e 
%f—K 7°Py'7A^T'P 
tf-y MJBK fctt*U S3* fc 
SQC £ ft ( tteo M7 #T?tttt#j&* 
b P £ -y h <7) 7°P ?'5 A £^S 

?-^7htfo, p*7 hW7° 
i n % /<v a >iiff(7)?ij £& 

*g3=<7)7°n ?*7 A $■ ?0 > P - 




tt;ofT8iirop*7 b*tt*>n 



M<7>*'y bX^OtiHSBW 
iI^ItcA-T-ISU^ M°VP>ii 
ff<7) * -y h -7 - ? SrlsM. & 7 
;uzf 7 * -**# 5 7Jf£ < b Ufc 



MSXSERIAL 232 



*J^^h2400bpsfbltB!? 



&m&&m£MteCs 2400bps 

PDs^-r Ovuizfo. $|7C?^ 

£2400bps$H&H$£§ft1"57°n 

^7Atf77 7'?ntUT, *IJ 

mtzztbxzzo 

Jbt> N (i*><fcj§*'y h£2400 
bps*jJc?HLT<tu fcl^jfctf 

*.£>£, /\°^-V--y^C7)FS-CM1 

^ v y-— <7)HBi- 1200ft tfft'E 
fA^-hU7y^^LTU 
&A#«£ A, £T£f •£•)<, ^t'A 
a-HJ-y^lzteiiflV? hfc 
F*3)ft£ftTl^<7)T\ &£«* 

&y?y =i >iif=££ Li;z: fc # 



—73, RS-232C^i-h U-yv + 
^Ex A +iiffy 7 h ^ ^ 7 »£ 

r < -SfJ(7) Afc *> fcttfc*^. 7 o 4' 

^ x.(Z2400bps^5:^-fb(t4^*<7) 
x v— (^^^l^MNP^l^CO^ExA 

b^'o i:-?$t< 300bps(7)^ft 
frh 1 200bps* < ±>jfEC7)^l'-t^ 7t d:o 
/•Cct7C, — ETfc, S3Ic7)iiff 

<7)±>7SBi2400bpsT*A»h 4«. $ 
Wf:6^ RS-232C^i- h U -y 

^;'I^ -y h %■ 2400bps^i^lC LT 
fes 1200bps(7)#M* < 7 7 ^-tz7sT-# 
4 s < ^i>^ltT1i^tN<7)T\ ^(7) 



RS-232C^i- h 
'J-yv^rA^L 

fc-^>^ s yt^-§-(7)mini#ftc7) 

fc'Jx 7-7. + -^bMSX-SERIAL 
232 (fiTF, v 'J 7 7 ;U232) fc U 7 RS- 
232C^- h U 'yS?aS£Bfg36£ft 
§ c i: (z # 'J % ^7 )ScHtiSifBG 
^*r bSiiiliz^iz Aft bftS J: 

7(Z^§ 

Z(7)->U7 7 ;U232(J, DMA(^'-r 
U^ M^E'JT^-tzT.) P> hP 

I »T % 9600bps(7)iifl^$^(Z bMJfc 

JSHtSR < ¥(zAftbft-5>^fc L 
ftfc^£^7ft#t>fl8i^T (-ba 




l^ ) N "Z*3^(Z N *^^«y h 

2400bps-fb(7)liiij^ < $ ?^^ft'J 
tsbtzcntz* 2400bpslZfrftH 

UBWT*#*;:£izfcSo U-p 

^uiiltS^^'Jtztii^^^ 

*\ ^ftT'fcPDS(7)^7>P- 
YStfBi*?7 ? -tz 7.B#r H 1(7)gi!i^lZ 

fc)S* -y h (7>tft^; TT-tz M SX- 
DOS2, /\— Kr'-f^^tbWC 

$ b tz 2400bps MNP>tfj££ 1^0 
z i: tz ^ft t£\ *^ U §i7^ (z tt 



fibL ^NETWORK 135 




to tJ./vtzft't>tt(Dt) 
l x 5=fc(D#£92:Ur. 



«»0A*2/H\»*<!:#S*Dll7»fc* 



Ait Z n *i A&L «fc 7 1>\ W% 

KX-mzfrz.zzt&m-sK'! 



ZfoZiAtii.foo 



■a fc ***»•} (tar; ^mj&< * 

tit #S LTJ^L' £ olfc fc<7)fc* L s 



Li? lilffi#lii*ltiSoTJiSk> 

*<7) AC £ r> T I J|£ffiliSliS<7> fc 
<7)fc*U JM.&l\M=£-3"Cttfc 
fc*<7) * tf *> L Cf ?fc IVU fc 

-so can^i^t(7)(if©A 

<nm&iz X -a X ^BI^Io T < 5 
feSO e £&& %ZlZfrA,ftffi& 

m t V&& & <7)*«* -a £ stff r s (s 

Xb. fc"**> Hft tit c ft ^mn 

fc L «t -#£ l> £ fc 1 1-5 fe I to d 




^&i\ AftrfrfcLtifti^U Z 
ftfr b L nfcl\, /Sfr b , &Atf 
* 7 Hi S£«> Z> b <n *kim, t wx 
tl^Zklz L Tfc WiYCc t 

rfti: i \fr b Hi S& S & # * i * ( t & 
UA,fc*{t<t\ ¥fia*<3 t^z 
£<7) J: o IZ&JLX I J: — &*&i* a 

kthfrz.?* m±W£<n x\ z 

fcffr hWX'll- -otLXX, h 
ft? tfr\.**3Xmt-tb-t>-5tytt 

*^i^n^7fc*(tr> ^wrum 

«*i ^ -T :/<0AWT\ ^<7)^H 
£ rfrtBSft £ fr*% i ^ 4% £ * < 

S-^^M £ *£f <7>-;?Sftiz ^oT, 
U £b(zgb<7)^lzj:-oT^ti 

sixfb l ^toi £ $ b eg* x 

sti^oits *>*-?ttftizi&&-? 

/;fi^-/\'-7 7 7'LT< § 
tt£\ fcfc*; 1H<7><fc-5fc*i^-f 






*fcs i£(ZL^'^oiNTST\ 

trzo mmzmttzzttt, ? 

ftte^ftXU-oZitzl^AsUz 

tcnxi es* § ^ art* &, m% 

(J iT-5 4%T L J: ? fee tttt £% 




:(7)UtL/ £'tz*-?tzfr%: ? 
^£::£e£i:ft-c*<7)&i:r 
<• e5EA,T- Ll^ tzm*Mtf*& 

mmzumzftx^zm^frtz 

A,/-*(t £\ &ftt J ->3'^ fc*-s f: 
&ftttU7'^£Lfrl^J:-7#fc 
l\ fclhjfctao &f£ktz-3X1& 

■5Hgfc#i*u *SUtzfc-r wf 
? hJ&StfrofcU uSfi^z^ 

ga.(J* 36*HfA,fc£::-5efflS: 

^nxi^-so^feLn^i^o ^ti 

TO^Tw^f&btiTi^z. 

<±*ts/-- 1^— A,^'it ^'^ »;**.? 

£ *>C, *5« z fcfib U ^|fc^ 
';T?uf5i:t^*t*i*, ffiftk z 

fcffr U <7) «fc -9 t£b<T>tf*£^t>Wtt 

IKHPttSW^ ^^T(7)(jz/c 

#^Hl^T#fc ZkZKfotJtf 

4 < «sc o tzmmfrhs m&$ 

^.A^j:i^oTi^co(j N z.-)i N o 

Z £ fc/HSLTl^frfc Lfl*fi». 
W3WJ ^"7 y»l^T L f -o fc It ^\ 
Tl^^U^Z^T'-f^o 







£0, tz^n , jT--r-©Bi3!r6*7 r -^coiii^b#as*nrL\«o 







-£^7 ^v 



fftA.7!rT# 



fc 46 dl&btLT I *3 fe CO -5 T -f ^ 
ilo fc^rHT' fc^Jffl L ft < *> *> ft 

— tfrT'— ?f£!Is 77-f'<y- 
(7)*|£&ftA,ASZ % Ht^fb^^-3 L 

ftENIACJ: Umr)(iHt§-ffltz|5a^$ 

ntzh<r>tz^tzA,tzfrh, a>tr 

Ufto 

UBW<7)fc«>lZfJ, ^Hf-^TJit 

Tttir-5 LTfcfi&u&tzftbfti* 

Bt-§-£i^<7){j v *<7>flg-§-£'.ft 
W£lX^%7)\s-7°foXU, t' 
<7)A£"7 LT'fc, ^SinzBf-§ii 

teo tzfrh, 7)\s—7fa<n-?'<T 
cnAfrs fl£-§-<WJ:£tK B^§-oo 
*&i$S<7tf±:£fcfti-?Tufti>£u(7 

ftl^ltfc'o 



Lrfrfc, li]i;;r;u-7°[*]<7)AT" 

u wwz (*, Bt-§- ^mux # ft ^ 

J;-9(^ftoT^T^Lt^l^W 
>J<fe&-2>o ^S'Js ABC<7)3Atf 
OT s AB, BC, CA*ft^'ft*§S 
iz^^-iiff(ix-# T fe, ABPalcD 
Bf-^iiff^ C ^WcT'# T«SS 
^XZttz fcLzn^T-^4' 
b N Bt-§-^U-7°(ZMT j &lt^U' 

^ u^«b m^cnmm * m # not 

£izft£ oS 'J, zcoaf-^->^ 

£z^\ kv^(2AW^>^% 

cob£-§-(J, nf^-cnflitj^brfn 

iz^Mm<»Mtfm i) &■&%?< 
turmftj? ffls t^oztfr 

fofri XL$ *{£ t'tifrt'iM 
£f&b^-a^<7)*r£2*£tij-f<7> 
(i^tili^ilL^Z^: U^ftt\ 

fc'^b. Z(DZ ^>(7)Bt-§-(i*at-§- 
lbco^M£" £ " x ^l^(7)M"c0f^/^ 

&wc l ft ttnif ft b utritz 

Afc'cfcfco fc£*J£ r 2001^f= 
S<7)JKj tZT"T<S:3>^-:5\ 
*HAL"tJ*IBM"£ 1 ^1* "^BfC-f b 



St<7) £* b b fc P,| LTJi<^ It fc* 

*»*>*> a, :miz(* % -fz-i^,& 

7')is-7°mmLtz, st^-fbco^ 
mztfiMvifrKfr-itzttz 
t, ttiztn-otzmit. t^tc7) 

■IftaftM^CflfflrT** 3 J: -9 
izftl» fc'^bs tL^-yrt 
(zJ^JU^E/tf^-Sfc, z<7)A(i 
lt<75s§^T* fc Iflwuzratre # b ^ 

t5ttff 

feU Z(D^mx-b^Z^^\± 
(DT^Xn&tz 'J <7>|SJT*2s'J £-3 ^ 



vSJito fc fc <7)fZ L ft < b f ft b ft 
IV ^>i l J, A, B, C, D, t 
^1 4A<7)?"';U-7°ftbv AB, AC, 
AD, BC, BD S CDC7) V ttlt'tUD 

mx\ m-otz^m^^-m^t^ 
mtcr>M*miMitz 
tztft\ z tit vto&zh friz 

ftlZL^), ?"JU-7°tzJl-f5A 

■otz i)«&*mmT*tzi>biz$tar> 
xtsfru^twx^iim&itJ 1 

(J frZ Aft lZ|&Aftti$g£*#b£ 

< (7) ti^*<*^ y 'T r* u i 

^■^^SHfi^^S^fcltL < ft^ 

[£ftz\ ^tL(Z s Bf-^b(7)^i!# 

(7)fin fc m&z h z> t> 1 1 u * ft ^ 

Lfao 
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Aiaifig-*>A.*5<is 



ixb. *zfrt>mt,mmz&2 

u jimmmcn^mttm (des : 

Data Encription Standard) ?£ k.ir 
im^lzTZ'Smtfti:^ fc*A v b, 

#]<7) ? -f Z7°(7) & (7)(i £7" < $ A,<7) 

tfffi*ffl&iz LTfc < ^*&V 

ant, ^r?g?nT^^Bt^~fb(7) 

M^^X.(J's ?*;i—7°l*]<7)(i*P(7) 

at-? x.^i^T'# ui^^zm 
tztz\ mmt^mtznkm^z 

UVit^o 

- ft( J>* L T #& < K t *&T\ 
n A<7) ^ U— 7°/z £ „ n C 2 llk7)$t*r 
'jZ^[Zft£>o OS Us 1,000A<7)?* 

^(Zft£;b(:t7io L^fc^U-y 
I*]c7)ftfc*\ 999ii'Jc7)M^P-DT 
l^tfttfftb^o 

%it^i(F>&-hz. ^tT<*SW.tz 

?*-y h 7-^(7) J:i4\ -ttm 

mtLX[t^)^XZt[zt^io 
iitz 

h^^Astztl"-! ZtX\ ZZ10 

^ < b ^mfrhffl%&mi£ibtz 

Public Key Crypto System) £U 
;bft£^fb?3it£(7)r;: 

H# .m-§-fb(^-t^7c(7)3t#lzM 

T)(7)^^# N Bt^fbC7)^ m-§-fb 
<7)$ts <7)-tfA,^StoTUT, * 

^o^^m-^b^H^MJs — m 



tztiUi, A£A,#a£-§~fbv7. 
^l^T-sm-^b^M/ftt^ A £ ^ 

iz«iz;& 'j sit b n§ ;b it tz 
tzt, A?^(z^-§-5:^^^) 

r-i^A(i, ^?titi^A?A 
ffl(7)B^^b¥l5!# £Bf^fb(7>$i£ 
fc^T, £«£B£-^bLTA£A 
lz£fJ/Kt3 -73, A2A,l£§: 

-^b(D¥M#^ A£A7i(t;!r*P 
o T tf 5 H-^H bc/)M £f£o T#P1S 
T-£Z>t>[ftzo 
CC7)7J>i^b, ^(zLTfcTr 

Wft«vit4^<7>yu t>£U& 
U -t(7)mifc->^7^A^#T'A 

fcfc\ zn/ci: A£A,fflc7)Bt-s§- 
<n^m$bs m^lt<F>Mb<2:ffi£ 

££t!)7coT, A^CZt-'- 



*ZLT\ ZC7)^ 



^•V^7- 



A£-9 2 <M£2t>-37ctf)lZlJ s 



X, 7cllMi±3^T£#6YlZ^lI 
4' -So 

^•(7)-7^t- n b£a,*ta£/Uz 
it, B?^(i, @-9-rc(t^P 

TU-S), St^-fb^^^^^-^oT, 

^izm&tz, fLT?bi:f 
n?rA?^ffl(z^^?nTl^?), 

Bf-^fb¥l7!# ^Bf§-fb(7)M^^-p 
xaf-^bU A?^(z^^^[tf-'o 

y -y ^— *? ^im^ tzAZA, 
it, Z\<T)V^$:£t&$-mz$;m 

nxi^ b ?^ffl(7)at^-fbc7)¥$% 

# t B£-§~f bCOMT-^$ L T^ $ £ „ 

b ? ^c7)^ u /c*^ fz5:^<sm 
z: z: x-Bf >b+Mt, $M ? tix 

^^tcDrnx-TtizMit z> *mbw 



K^tl^lZttZo OS I), A? 

^b, Bt^fb?tifcx*ttraii^ 

- tumwtfi ft 7 -r f7 T-ii a 
stt^ ^^^^zfB-^•(7)l^l\ sg 

-^b(7)^M# tW=AW¥-m.£ if 
ft&t%><ntz*>nb\ 

I1& ^Pbnx^?)fec7)i:LT 
(J, RSA^tl>-5 N *SBE»«$-JS 
ffl L7zBt-§^b(7)73>i7!)%-5. 

m^him-^MbmmzhfriT 

Ll% fc-^««, ^tz-?(Dm%L 

c7)(js fc«>r^<*aKfo ^b, 

*S^50fif<b^(7)^:iz-r§i:, 

t% ^ =1 > t° a - ? £f$ "3 T t) H 

mwrnmrmmiz^zmiL 

fcfclRglSt^ffFli, HuI51(7)l(I5]-t2 

-;ut.^7 >Pp1M^ IW] U ^ 7 ^ NP(z 

mrz><nT\ mmzffi<?j : £m& 

S3bltU*Afcv.*A,*f(t£'tao 




b n ^ 






I fffllNWRk!: 

fc£fc£, n>fi-^A<SJS 
T*£ 5IS-3TOTIJ, o t 1 <7)*a 

^^-^-t+T-T'# tz 2 mm'Mm 

#9 fc %C£ -p T* nii\ if A/tf 

fc'J:^ fficavtf a— .*#»&# 

A7J L tzW&? zv?> K (J, iffigK 
JIMT S Z £ (JT'# &lvbltfc* 
•fftt-fc. *>*A,£,fk>fc£fc 
fj <7>tt*A<T*# S<7>( J % * 2fc% 

£ a > t'a - ? <7)PBl(;*;il<7)Bt-§- 

*a„ * n*\ asci i tiffi&mxm 
mm^- ?)mmtz''?tz*hm& 

<7)if^-(J, JIS;I^P-K2«t/-;: 
•ofc»;TSfrl1tf 



Ul BASICS ?ASC("A") tfTh 

^tu*— >*— *#w% 65 

fc < jR*<75ii C fri x fc<7) £ ^'oT 
it. n§-^ftr*{z(i. 5BCfc 

*t*>&a,t*iiu*o msx-dos^, 

i^SAlS, zco7°p^7A^T*> 
iAifr<Tfcl^\ StSC, X 

if-f?(J1 fr^-fiT-fT^A^ 

ftpv> KH£*M£LTUStf>T- 

##[:LT(5L^„ 




r frlT\ 5BC % S SStfT* # fe 
£"tSo %£, ^C7)£*£B£-^b 
-fSfrltfc'o 7n?7AS0N01lJ 

*n) £ ^i cn^i^io 7°P ?*^ A£ 
HlTl~3£s INPUT77"OU££ x 
0UTPUT7 7"f.JU££Ml.*T < * 
INPUT<7)(5o(2, TztT&MtfX^X 
l^77-f;^%-^tS, OUT 
PUT<7)(5 -5 (i, $*lrh$tltzXm 
7 7"OU££A7J-fS U^X. 
I D t mi "X < S(7)T; tjA/Qby. * s 
h-hnfr*—'?- KfcATTtSo 

tzxmz&tz^tzit. **&&& 

T#S MSX-DOS££ir>TUSA 

(J, TYPEnv>KT"fcMSZi:A < 

T'£S** 



r 



^^^3^7£I:/3^5[zBi^fbcvn^ : e! 



run more . »as " 
■filename? test 

*/ao.>fy»/7-*;* a>. h^nt" nr/fl-r /» 

jkto 7"> 9 a-o"'? *ji3h- 7ji. 
7-foi* -miii t=»^tv 9^'yf h r-5?*y 

AtT^t *£&« 1> 3 3 9 ? :, 

ABCKEFGH I JKLMNOPQRSTUVWXVZ 

0123456789 

•(i»"30 JITL-KO 9 -f^* . . . 

Ok 

run"tbl.bas" 

input -filename ? test 

output -filename ? angou 

id, ? GASCON 

make or decipher <1 or 2)? IB 

color auto goto list run 



»si\ fcirojf^ft^ h -7-r >x-r-c ?x-fti&tz< 



Ok 

run" more . b as " 

■filename? anojou 

awi>i7-M^t4'v. tU_6-?j»9Lit3j J 96'*5ijt 



<tHjtj*lbjJA»j< ; tHj^ s i3 r n=t r j=fc» 

<:69an j "-as j 3 j -*^«a_ j rc^an j it? 

l^nKa j *H_*9j 1>%*f¥<4 #&ton «j =f=3 l^t 
w*-v*^-jkIVU*-odj j^juj3j6 

«HJ7X*0^^7a^TTb»*ER9!l3 5? 
5i : t3<h j «6«n j 3 j sit t j ??7 



color auto goto list run 



• r Bg-§"ft7 □ ^7 AS0N02j S-Uff-T 5t, Z. -4" % (7)fc' 



?^s fcO— *x S0N01(7)7°Pi7' 

7A^iLT v iNPUT7 7-r;u^ 

Cs Bt^-7 7-r^k OUTPUTDJf^- 
^-^1^ L /- SSpD 77-f^^l 

X0R^l^0(7)(i, mW£h(T>X\ 

ZVitZotzt TlH BASICA^b, ?ASC 
("A")XOR ASC("$)")^TSi:, 

208^i^-5^7iASgoT<s ~n 

A\ MSX (D * ¥ 7 ^ f WfiMXiZ . 
ttQ&Sfrt^ t,?CHR$ (208) 

^LT^-T<n o *^, 73^737- 

hO—%, ?ASC("5")X0R ASC 
("*")i:-rst, 65 s -7^'J, *A" 

7^^p— K^+t-tiv M®Sjf 
(Dfpq- ¥hsitiXl^(DX\ 

Z<T)7°U?^L.Xttm j ^ltLtzt 
# N SHIP— K«ri»f TV* 3 
<7)tztb, ii^ti^ffl T # ft ^ \, 

SON02(7)(5o(ix MSX(7)7>^" 
AKSrt^RUNf £ fcLNCl^J U T*$> 
i.C^^r^lJfflL, A7^?tl/c+- 

li:r* *-* -v 7 ? ? p - K <>: <7) 
^*i:LTi^ C(7)7J5tT*(i, 
X0R(7) J: ? (z 2 S^^ffnif 5ct- 
MS ^ L^-9 fc14K<73 fc<7)T*ttftl^ 

©T% iJH3"*5cCJW"ii:J(4» fc 

•7— S+-9- K^bBt"§-r-7 
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mmi\0n#5k sonoi 

100 MAXFILES=2 

110 INPUT "input filename " ;FI* 

120 INPUT "output filename " ;FQ* 

130 INPUT "id " ;ID* 

140 OPEN FI* FORINPUT AS #1 

150 OPEN FO* FOROUTPUT AS #2 

160 LL=LEN(ID*) :LI = 1 :V=0 

170 IF EOF(l) THEN END 

180 LINE INPUT #1 ,A* 

190 FOR 1=1 TO LEN<A$) 

200 S*=MID*(A*,I ,1) :S=ASC(S*) 

210 IF S=l THEN V=64: 1=1+1 :GOTO 200 

220 ID=ASC(MID$(ID*,LI ,1) ) 

230 OT=(S-V) XOR ID:V=0 

240 IF 0T<32 THEN PRINTW2 ,CHR* ( 1 ) ; 

250 0T=OT+64 

260 OT*=CHR*(OT) : PR I NT #2,0T*; 

270 LI=LI+1:IF LI>LL THEN LI=1 

280 NEXT I :PRINT #2,"":G0T0 170 



mm&u*?5k SONQ2 



1000 

MS*< 

1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 

1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 

1200 

1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 

1300 

1310 
1320 
1330 
1340 



MAXFILES= 
223) 
INPUT 
INPUT 
INPUT 
INPUT 
OPEN FM 
OPEN FO* 



:CLEAR lOOO :DEFINT A-Z :DIM 

"input fil.ename " ;FI* 
"output filename " ;FO$ 
"id ";ID* 

"make or decipher (1 or 2) " ;PT 

FORINPUT AS #1 

FOROUTPUT AS #2 



FOR 1=0 TO 223 

MS*(I)=CHR*(I+32) :NEXT I 

FOR 1 = 1 TO LEN(ID*) 

J=ASC(MID*(ID*,I ,1) ) 

FOR K=l TO J 

X 1 = I NT ( RND i 1 ) *223 ) : X2= I NT < RND ( 1 ) *223 ) 

SWAP MS* (XI) ,MS*(X2) 

NEXT K,I 

ON PT GOTO 1170,1240 

CLOSE :GOTO 1010 

IF EOF(l) THEN END 

LINE INPUT #1 ,A* 

IF A*="" THEN 1230 

FOR 1=1 TO LEN(A*) 

A1*=MID*(A*,I ,1) :Xl*=MS*(ASC(Al*>-32) 

PRINT #2,X1*;:NEXT I 

PRINT #2,"" :GOTO 1170 

IF EOF(l) THEN END 

LINEINPUT #1 ,A* 

IF A*="" THEN 1340 

FOR 1=1 TO LEN(A*) 

X1*=MID*(A*,I ,1) 

FOR J=0 TO 223 

IF MS*(J)=X1* THEN 1320 

NEXT J 

PRINT #2,CHR*(J+32) ; 

NEXT I 

PRINT #2,"" .-GOTO 1240 






100 INPUT "f ilename" ;F* 
110 OPEN F* FORINPUT AS#1 
120 IF EOF(l) THEN END 
130 LINEINPUT #1 ,A* 
140 PRINT A* 
150 GOTO 120 



AI*»ttA<B 



x+xh^-r^xx-r^ 



1000 SCREEN 0:WIDIH 40:KEY OFF 

1010 CLEAR 10000 :DIM BF* (1000) 

1 020 E*=CHR* (13) +CHR* ( 27 ) + " K " 

1030 L=0:PRINT CHR*<12) 

1040 PRINT CHR*(11> :PRINT E*:PRINT E* 

1050 PRINT " + + + + +- 



1060 
1070 
1080 
1090 
1100 

1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 

1200 

1210 



PRINT CHR*<11) ;E*; :INPUT "Command" ;M* 
I FM* >= " a " THEN M*=CHR* < ASC ( M* ) -32 ) 



THEN 


1360 


THEN 


1 1 70 


THEN 


1420 


THEN 


1460 


THEN 


1200 


THEM 


1260 


THEN 


1310 


THEN 


CLS:END 



IF M*="E" 

IF M*="A" 

IF M*="S" 

IF M*="L" 

IF M*="P" 

IF M*="D" 

IF M*="I" 

IF M*="Q" 

PRINT E* 5 "Command Error"; s GOTO 1040 

L=L+ 1 : LN*=R I @HT* ( " " +STR* ( L ) , 4 ) + " : " 

PR I NT E* : LN* ; : L I NF I NPUT A* 

BF*(L)=LEFT*(A*,34> :BOT0 1040 

PRINT E*;: INPUT "Line Number " ;Pi 

IF P1>L THEN PRINT E*;"Not Found !" ;CH 
R*(30) ; :GOTO 1200 

1220 PRINT: PR I NT: FOR I =P 1 TO PI +17 
1230 LN*=RIGHT*<" "+STR* ( I ) ,4) +" : " 
1240 IF K=L THEN PRINT E* ;LN* ;BF* ( I ) ELSE 

PRINT SPC(39) 
1250 NEXT I:Pl=I:GOTO 1040 
1260 PRINT E*;: INPUT "Line Number " ;L1 
1270 IF L1>L THEN PRINT E*;"Not Found !";CH 
R*(20> ; :GOTO 1260 
1280 FOR I=LN TO L-l 
1 290 BF* ( I ) =BF* ( I + 1 ) : NEXT I 
1300 BF* (L) =" " :L=L-1 :GOTG 1040 
1310 PRINT E*;: INPUT "Line Number " ;L1 
1320 IF L1>L THEN PRINT E*;"Not Found ! " ;CH 
R*(30) ; :GOTO 1310 

1330 L=L+l:FOR I=L TO Ll+1 STEP -1 
1 340 BF* ( I ) =BF* ( I - 1 ) : NEXT I 
1350 BF*(L1)="" :GOTO 1040 
1360 PRINT E* J 8 INPUT "Line Number " ;L1 
1370 IF L1>L THEN PRINT E*;"Not Found!" sCH 
R*(30) ; :GOTO 1360 

1 380 LN*=R I GHT* ( " " +STR* ( L 1 ) , 4 ) + " : " 
1 390 PR I NT E* ; LN* ; BF* (LI) ! CHR* (13) ; LN* ; 
1400 LINEINPUT S*:BF*(L1>=S* 
1410 GOTO 1040 

1420 PRINT E*;"Fi1ename " ; :LINEINPUT Fl* 
1430 OPEN Fl* FOR OUTPUT AS#1 
1440 FOR 1=1 TO L:PRINT #1,BF*(I) 
1450 NEXT I: CLOSE: GOTO 1040 
1460 PRINT E*; "Filename "; :LINE INPUT Fl* 
1470 OPEN Fl* FOR INPUT AS#1 :L=0 
1480 IF EOF(1)=0 THEN L=L+ 1 :LINEINPUT #1 ,A 
*:BF*(L) =LEFT*(A*,34) sGOTO 1480 
1490 CLOSE :GOTO 1040 
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b— A^SXvtfvMZ&U £ L/c 

ftx. ^n(i<r-Aijjffl§(7)ie 

mtz r> tzCDtztf t\ <^Ult *> J: r> 

*=ft<T s f|M>(5olzmi&LT<7* 

it" ftA,T fcHuli^TUft ^ «t 
p-*-AAfEUfc<T< &3*lJfg 
7>T'BASICc7)M&£ IsTfrtmZ, 
^iV-t-oft U Tj A<;b A^ b ft fc \ 
i:i^A«mLfcfca El* 

£.*£,«£ <**Uf ft7°P7' 7 A 
TL^ih. T-fes H^IZ7°PT- 

>S1 L T i ^ 7°p y=? -?—<n t £ 
*%*.%£, tfftfcWl^ftT* 

ft<"t> N (tTl^'ft^'ft 

ft7°P^AfFiJlJ£ »J A^-ffflB 
(Z&tfX \^HZ^l^P«tZ7°P 
•77A£#%#>* *rft*<7)g#i 
ftA,t t>Si£tf>ttltS;fr|Stfrb* 
yn^Af^JfcffiiJTlfU^ 

^teAUKtJs y-AfFUn^Jt 



>ftif*jmLTo<oiM* fc 

?■>*&, uaco^^p— A^tiw 

LT^<ct BASICTy— A^flFo 

fczi:ti*%it^ M5IASKT 
f£^fe<7)izft b ftA^-? fcftX»TA 
It. fltffiWt^'JfflLTfeo 

v v >=§ i t£<7)M&(2 c co $ i n 
mS^LCLT, £«&*#?$> 

7°P?*7A#UftA,fio ZC7)igtfe 

ut ft 'j *M ^mmmM i 

[U^L^ -^T\ -7*— A£ft£fc 
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TSA X * -3 fc < >*#>-f IzfF'J (i C 
#T S ftA,£ft<y— AHL*>* 
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TU<|3fa e T\ ^h^hUT^J-' 
T*mM&£Mimn*.X^ < 73 

&a\ HHflltfffcS-Sfto 

*flH2 7t?lK<7)^- A V 7 h ft if 
£1LT, **>- ~A,ftCOfW^ 

ft*" £ H-3 T h s £ 'J hX.-f-k.tfa 
%%*>-?. feWftfcCOA^bfFoT 



i&gtZt^Xli. ^A^JP-TW 
ULi^" <7)sjgJWrA<Sfc|tLA^ 

L-*Cis>< LA x ftW?*^7ft« fc£ 

&{& BASIC/-5tT'7.77-r hAv\" 

y— aij x t. e- k £ a^ « a ±. 

A^TCi:/clt^tao 

frX% ^-AfF'JtZ'jZ^ftfc<7) 

3 #g lil£* A*ft CtltJftA^ft 
A^IA^'ja < T, H®<7> U -T T 7 7 h s 
W*+ A- 7 ^ ^ -^^if+ ¥ f ? 
i?H8KyHfc WSC0^7 7-f 
7^, T' : EC7)^* : 7 7 -r-y^, ^"T 
h ;uH®<7) ^77-fy? ft £*> ^ » 
•^l^ft^^A^-So 

y- a tz «t -3 x it±&m i 'S^ 

fcftl^lt/c(t^ >*LT®(tT 
£fc*Z£<7>-C#ftOt><7>T*(J& 
^ fto 'JZ^tClS U T ^7 7 -f -y £ 

f£*tfxiJilittA\ 2:t*ofca 4 y* 

fc^ftc7)fo)l^il^TfSLTU# 
/zl^,fOC0T\ fc^L^lz^c 

4 # S (ft". BASIC^ttT*y 
— A<7)BGM£nSbf<7)tib J: o i: 
ULl^tt^ ?—&<D*—-f-> 

(i^ Aft(Z«IL < fti^o +-^7^ 

fci:#tz#6<T**fft"P; #— A 

(7)E|]^t,-f l.vStAS< ftSA^bx 



i: *>r- ACOZ-f XT'" CtJtl?) 

t- -r >^*y- Aft bSK^ ^- t*t* 

A^ASo CtlCiSA, ^r-Af^'J 

fBJ ^ AS t T . tIS CH »J M fc ? o 
Z i LT^-AfF'J H'jZ^ft^ 
CO^rM^T^-^i:, ftA,fc*A N 4iy$ 
±S!ft'f > F*(^L:TLSolt^ 
llc^ot^ii i: ^ -5 Tfcftt^ 
i:S?fto fci^'J:-V» *i:U*x. 
■f z. ti& ~— ^ i A 9 tz Lfc A x b v 
^(i-fnT L =t -5 A^" ft if i: !$£■§•? 

(ZfFo T^-? fcti ^ A^Vin £ ,go 
<7) -^{Z^i5?rt ->-yi:fF^^ 
^LTfc> ^-^P^^lZT'#i)fc(7) 
T'kftl^Tbteo 

^-nT'(J, Ztl^b7Q7"7A 
5-fFoTl^< o;LT-<7M5JA s <7)## 
{Z ft * A^fc L ftU V. ^<7) T\ | f^<7) 
7p ^A**ttK:#aiL<V* 
^zib(7)IS^*S7>Lct7c 

A^fcA v b (ii:«o(7)z^(i, u 

^L^^'-A77 h^IoTI 
TJSATl^c(7)^lt^ ^(77-vb 
^I^Z^e$nT^^7°P ^7A 
'/^.'Mr, *T*)&A,T*<fr5 J: -j iz 
ftofco L(i'b<T ; &t N fcftTA 
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m^z ns * -V -tz— s»*i&£ u 

LTj8A,fc*„ *<7)?*>MSXlioi,x 
T#fc BASIC(7)v- nT^bfcir&l, 
***fe, 7°P?'xA(Z-3UT^iL 

*> * *9 £ L fc 7°P ^7A4" bfFft 
£\^ft(I^ftBASICT12^tI,m 

jo fc 7°P ^A^g 7>T[1 L Xfr 
fftft^i 0*49; 7'P^'7A^ 

2 1> i g&tfWWM-ttzo z (7) 
c£Mlz&£bt\ 7°p?*xA£ 

ftx.tz&<<f>Xb\ miziiiKm 

C^oT, -£<7)?£<7)7'P?'xV- 

*^(*lf*)o *feTi Z(7)ilK 
T1J N 7°P^7V-100A(ZfF^T 

AlziS^LTfc>bl\ MMcoy'n 

Jf^A-fciMftLTiX t^n 

7p y=? A*% sm^tiiimL x 

itzttitmm^ m%<n%$ 

l2£'?Lrcbi^^*<>:£\ vv ~o 
/•fit £'* s iv*» fcMtz feftt&ft 
b #A & fe s fc £#— 7 £ SIA T* 

fc 7°P 7=7 A £ g #fc tj (I«#ft 

IS@W(ziI^(z#ig L Tta 



tA.t£t>UX\ ztifrhcnmt 

H4^n^7A(f-A)^T 

ZA,Wf-A%tt% frki^ tzm 

*ffl(JS8F.6T*(J*£o Z(7)iliSt(7) 
X-A£fF3*r" oT4>£j|J|U= 

-LLTLSofc'J LT 

**-£» £?(**< WMJ{z#fc 
i&LT<frJ:9 y-A<7)F«g^ti^ 

-x"' tz&s I e&e. 1 -^, m v 
a, £ ^ < nmc % o T, *<rt* t 

tva 2t?^o(tf;'J LT 

*?(7>iggftrbL-TtK ^-otf 

ft£&-LT&ft£z:-LT£7 

•y t m U tJJ o TfF U « £ * tzii i 

m.itui^t>mzu mb^i 

Xfr*£< b^frfrb&L^bteo 

-r^tztiz-p-rnti'i^^^" ^ 

ifi:> ii^LT<nfcbiimc7)g 
A>, ^'7-y5 : -x^5-y5 L x 

<fer>Xfr*><nh^\.\ *1bt\zfr 
< z^^-r h;U?r#^^ LT S >r 
-A$-^T*/:l^I-5 (7)/z 

tl^^(tX\ 7°Q^5A#|g 
i: i x -5 ai%<7) A 7>( J^D -3 Ti? ^ 

$ntz oA-LviSrWixmrn 
tffj-hv) b ns(7)*%*\ 7°p ^' 
= 7L>i&ej&tz<nb<%t\ mam 



■^p^^ACDJiiittftawf* 



t^Zi«^o■c^fc 

3ffl7P^^AttSCREEN5 
lz«CsUfct.(Z) £5-8frbl5 

^^■^r^b^l;«)Si ; &§ll^rJ5 

S, ^CD^-SO-ioOA^-yKlz 

^^Ufc^©d:5lzMt+ri,^o 

©y^b'yK^±HI5^lzUrLy^3o 
1040ffil050fftt. 775-f Sr 



e>i870ff^r^iiiac?i<5-f> 

r««7<i:n3©^-SSe<]7co 1060 

mizm^tzmm-c. umftfrB 

1 170fT-CX^CD^Si«3Sx.fttf 
b, *PgJU-7[zAoru-g> # 
@B"PUSH SPACE KEY" 

LMjt\ mmiz&zoii-ycpz- 



10013 ' title 

1010 SCREEN 5,0: COLOR i5,0,®:CLS 

1020 FOR 1=8 TO 15:COLOR=(I ,0,0,0) :NEXT 

I :C0L0R~<7,7,7,7> 

1030 OPEN"grp:" AS #li: COLOR 7 :PSET (88 , 17 

6) ,0:PRINT #l,"*;;*.-.v H-,Tt3" 

1040 SPRITE* (0) =CHR* <?<H80) 

1050 FOR 1=0 TO 31 :PUT SPRITE I,(RND(D* 

255 ,RMD ( 1 ) *191 ) ,7,0 jNEXT I 

1060 FOR 1=0 TO 7:J=(7-I)*.5+1 :X=48*(7-I 

) :Y=20*(7-I) 

1070 RESTORE 1200 

1080 READ A,B 

1090 PSET(A*J-X,B*J-Y) ,0 

1100 READ A: IF A=0 GOT 1080 ELSE IF A=~ 

1 GOTO 1120 

1110 READ B:LINE - ( A*J-X ,B*J-Y ) , 1+8 :60T0 

1100 

1120 NEXT I 

1130 PSET (64, 176) ,0: COLOR 5:PRINT #1,"PU 

SH SPACE KEY" 

1140 PSET(192,24) ,0:COLOR 7 :PRINT#1 , " <fl>l. 

*•:■> " 

1150 FOR 1=9 TO 15 :COLOR=(I-l ,0,0,0) :COL 

OR=<I ,0,1-8,7) :FOR ,7=1 TO 50:NEXT J.I 

1160 FOR 1 = 14 TO 8 STEP -1 :COLOR= ( 1 + 1 ,0 , 

0,0) :COLOR=( I ,0,1-8,7) :FOR J=l TO 20:NEX 

T J, I 

1170 GOTO 1150 

1180 ' 

1200 DATA 40,40,40,20,50,40,60,20,60,40, 

: M 

1210 DATA 70,20,90,20,90,30,75,35,0,70,3 

0,80,40,0 : 

1220 DATA 100,25,120,25,120,40,0,105,20, 

105,40,0,115,20,115,25,0,120,20,120,25,0 

1230 DATA 70,50,70,70,80,50,90,70,90,50, 

: W 

1240 DATA 100,70,120,50,120,70,110,70,0 

: A 

1250 DATA 130,70,130,50,150,50,150,60,13 

0,60,150,70,0 : R 

1260 DATA 180,50,160,50,160,60,180,60,18 

0,70,160,70 : S 

1270 DATA -1 
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v995Bzsaai*nfc 

msxco msstf ^sotPT 5 spa 

& *Video Display Processor*^ 
■&LTVDP£l,^ MSX2<7)VDP(i 
*V9938* i:U-5 h(Dtz-?tzli£\ 
MSX2 + (Z^oT*V9958"lZ^Bi7' 
•y7°£ft/c 4-^H *<7)V9958U 

[2] 1 CJUKLtoWJ, V9958Cii 

7.? ZtlbC0Uv7.^(i*#iA 

B A S I C<7) V D PPy&0)#§-# W«£ l> 

V9958T5i*n£ ftfe*»>:*0£ 

(J s n> hP-;uUv7.?25TifclJ 
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V9938i:|ll3KlC SCREENS*^ 8(7) 
H®(-^LTCO^*VDPPV> K" 

C 1 £*#£#>(£ 3:®®^- K 



~ <D VDP 3 V > K £ (£ N BASICCO 
COPY^^ UNESCO j; -5 fr{± 
*£, VDPC: £•£*>«&, »^ 
SSC^W^, SCREENS*^ 8 W 
^-(7)®®H*iTSVDP=l v> KT- 
(J, 128+P/n*-T h(7)t'T-'^RAM(7) 



4>^*§#f^ SCREEN8C7) «fc •? (Z X 
?bi:t'7 h 2(11 £##£*; 

£ s vdp<7)* -5 x -r h «ir **#» 



JET ?n(f VDPA^CPUtC *WAITfI 
<fr£, VDPPV>KHct-&iE^(ilJ> 



1 V9958lZJij!iP*nfc=l>hP-Jbbyx^©. 



b7 b6 



bs 



b.. 



1)3 



in 



b, 



bo 







CMD 



VDS 



YAE 



YUV 



WTE MSK SP2 



1 &e>l££$18 K^ h£VX^ 

1 fce>tfYJK/RGB;g£7i5$ 

-8irF8<Z)*8t&££x.3 
- 1 &6(3'±iIj^E-Kr=lY>l< 

-fr&b1*0£»£iA£ 



bi be 


bs 


b 4 


bs 


b2 


bi 


bo 








H08 


HO? 


HOe 


HOs 


HO4 


HOs 1 










































b7 b6 


bs 


b 4 


b 3 


b 2 


bi 


bo 

















HO2 


HOi 


HOo 
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Msxz+ft-fiimm 



VDPIC<£3 

mx7u-)\,i3.oiz 

WSkT-5 bfettfet. 2M® 

J:1\ =l>hP-^L^v7s^25 
(7)L'-y h 0*SP2"^0(7)ii^-(Z(i N 
E] 2 <7)_h<7) «fc n \Z 1 B®7><7)T f — 

7s^p-;K7)K'y h^[(Js Uv^ 
?26£27TlgS:3n5o t>W* 
26(Z0A^b63(7MiI£«#iM;£s 
■^(7)fSx 8 P<y h-P-iuT'lI®^^ 
(Z7x^P— ;UL, Uv 7s? 27 CIO 
A^b 7<7)fit«-#< i:^(7)»^lt* 
HfMrf&o fcfc*LSCREEN6£7 
T*fc *t^Lfc»(7)2f&<7)K'y h 

LTfco K-y h&£0A*<b2553:T* 
Jl#(Zli^LTO< & HBMfe 
^T.?P-;UL, (i*fc*LfcSB7> 



— 7Jl-v7.?25c7)L'-y h AM 
(7)if-£-lZl2, El2<7)T(7)cto^ 
2 H®7><7>iIHfcT f — ? A % b }§£ £ 

ftfcgKJ-A^^ft, m*?a- 

-?(£ fc*7** RAM(7y<- v £ 
1 $tztt2 t 3tZ=B1i£ftTU-5 
**„ •<— vA<0 t 1 <7)*&£-lir'-f 
7.7V<^-v£ 1 tZ v 2t2(D 

t&kizitTi 7.7V-r^-v^ 3 

Glttt*J:3o li^^p-;K7)K 
■y h^(iOA^b511 ("5*U 111® 
7. ? P — ;K7) 2 1£) C# -S A/c'o 
ifcs lsi?X9250>\fy h 1 £ 

1 Cf5t, U®?£iffi(7)8 |?>y h 
(SCREEN6£7T1J16K-y h)A < « 
5c*<¥fvi ft^ l J(Z^(7)tf^f(ZlI 

®(7)^iiafeA^^$n%o -fu* 

#t* ? p— ;k #(- 1 ®®t>c7)t-" 
-? (z J: 5413 ? p -Ji/£T5Ji 

-a-, HiSA^tt^aLfcSBTyA^ 
ccs^HiijA^^bnsw^iig-r 

<SD tZ-d^lJ^'o TC7) y 7. h IZfi* ? 
P — ;U(7)7°P ?*7 Atfij£-}ft£ L X 



CLS 



iT&n-ibo-y-yyfryny^k 



100 ' hscrol 1 .bas 

110 ' by nao-i on 26. Oct. 1989 

120 ' 

130 ONSTOP GOSUB 290: STOP ON 

140 DEFINT A-Z: SCREEN 5 

150 COLOR 15,1 ,1 : CLS 

160 LINE (0,i»)-(255,211) 

170 SET PAGE 1,1: COLOR 15,8,1: 

180 LINE (0,0) -(255, 211) 

190 V6=VDP<26) :VDP(26)=V6 OR 3 

200 '*** scrol 1 

210 FOR V7=0 TO 63 

220 GOSUB 320: VDP(27)=V7: VDP (28) 

230 FOR V8=6 TO STEP -1 

240 GOSUB 320: VDP (28) =V8 

250 NEXT V8 

260 NEXT V7 

270 GOTO 200 

280 '*** restore VDP 

290 STOP OFF: VDP(26)=V6 

300 COLOR 15,4,7: SCREEN 0: END 

31© '*•** wait next vsync 

320 TIME=0 

330 IF TIME=0 GOTO 330 

340 IF (VDP (-2) AND 64) =0 GOTO 340 

350 RETURN 




SET PAGE 0,0 





SP2 = 0£>*§& 




, .'? -»ttOCL 0-7<T.«S'±f AJi+. lo\». k*fr 


« ► f /A/4UC4I tw^c^'uv r*n 






Z]>KD-;bbv7.^©e6iB7r 


@ 


m 


jg^snss^ M»£8^ur^ 


m 


m 


<<t, asiza^itiss^^Tf 


IZ7x^7D— JUL, g®(Z)7£wS5A s b 


£ 


& 


ttaWtiL-feBMrAV a«lzilt)n 


m 


« 


r<5 u-tooiiSA^a^o 


^A^fcttJSCS:5t3l7^fio 


■4 ► 

VRAM<9flW 


sp2=i(om& 




\si?x*26b27x*mfeztitz v?m 






m 


i*i 






m 


m 






ft 


a 






m 


4 l 






VRAM£>^-^0 VRAMO^-^1 


tfT-'^RAMCD^-yOtl (2i3rtiU) ZMfrSfrntc, WiRM 


H7>©ii«x-^A^6, ms*nfcaiJ7>fc*ij-A^s*ti5o zbzmmft 





S 


ii ziyb*n-)\;isyz&<D&mWim 


V^X##^ 


vDpmm&n 


f$##ifc 


"7^<)V 








F3DFH 


RGOSAV 








\ 


7 


7 


F3E6H 


RG7SAV 


8 


9 


FFE7H 


RG8SAV 






• 




23 


24 


FFF6H 


RG23SA 


25 


26 


FFFAH 


RG25SA 


26 


27 


FFFBH 


RG26SA 


27 


28 


FFFCH 


RG27SA 
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JKASEJA 

zi> hP— ;uu^^^25(7)t:*-y 
h 3 *YUV* t t'v h 4*YAE*T\ 
RGB^5t(Z J: -S®®^^ £ YJK7J 
xt(Z<fc ZmTJkZmiRT'Z Z? 

£ -f Is i> 7. $ 251^^0 U v 7. ? 
^ SCREEN8<7)lf^-£|5]*£(Zf££ 
LJ: 9 BASIC =1§T1J N 3.7U 
— >^E— K(7)10^"b 12^t^T-5) 
ZtX\ YMttZmRTZfoWz 

SCREEN8<7)JI®A<RGB7jit£ YJK 
T^lZ-fcJJU&X.'bftS, t^Titz 

(I •? tft>-h- 'J ^-n^^jTo t'-y I- 
3 (7) YU VA< T; t'-y h 4 (7) YAE h 
OKhs SCREEN8^C7)fc<7)Al££ 

znz>t>iit£A,tz 

— 7JYUV(Z1 X YAElZ0£l££T 
•g>ts H3(7)_b(Z^L^ct^4'® 
fi^-^CO^IitT-, SCREEN! 2(7) 
YJK?3xt<7)®S^<S^?n?> C 
C7)[1(J V iI®<7)l£(Z3fcA,/c 4 K-y 
h IZMfctZ, 4 / \*-f h <7>r- ? 
$:mt>LT^Z>? Yo^bYs^ 
»f -S> K-y hc7)Xi££*;fVfft 
5t*7 K32l3*£)T^;bU Kt 



J (7)filT'®®<7) 4 F*y h^ft<7)fe 
*g£, 12t:-y h (4096^) T'S^ L 

YJK7JitT'S|;b<?ftrcm£RGB 
75 itf Zg$rf * 5t( J#<7) £ fc U „ 

R = Y + J 

G = Y + K 

B=1.25Y-0.5J -0.25K 
tztzU Y(J0A^31£T\ J £ 
K (i-32^«b 31 3: t'C7)ffi^ t Z> t\ 

tz t && -x\zh\.itz 4 /x'-r h <7) 

7*—* (J. Y = N J = K =-32(7) 

*&o WK-^tt* LXfr±i 

bi bi bs b4 b3 bz b- bo 

00000 000 

10 

00000 000 

10 

*stfc 3 jtm±L 1 -^^iit * wi 
u zn^-Y, j s kizout^ 

<7)*»^& i " \si)u»vmtz-? e g 

tX'^tzt^io 



YJK73sea>Hsc!>7 s -*«a 



YUV=1,YAE=0CT)^^ 

b7 b6 bs b4 b3 b2 bi bo 



Yo 


Kl 


Yi 


Kh 


Y 2 


Jl 


Y 3 


Jh 




yuv=:lyae=1(£M§& 

b7 b6 bs b4 b3 b2 bi bo 



Yo 


Ao 


Kl 


Yi 


Ai 


Kh 


Y 2 


A 2 


Jl 


Y 3 


A3 


Jh 





Y=(2R + G + 4B)/8 
J =(6R-G + 4B)/8 
K = (-2R + 7G-4B)/8 
SCREEN1 0^11(7), YJK t RGB 

toWS&^xmWMfrWfcf Z> tz 

AtZti, YUV(Z 1 s YAEIZ& 1 £f£ 

- 9 0)|H ^Tjk L tz<7)ti<m 3 <7)T 
tz AoA^AslJ, 2#ST5 K-? h 

^Ma^ss^nee uo^ # yjk 

7JitT'*(7) K -y h ftgHMf tU 1 
fcibtft'-y h 7frbt'7 h 4T4a 
£$ft*/tl<*9 b0)%t)\ RGB7J 

f:U wOarCtt* YJK7j5t(7) 
H*(Ya0* b YsTj&^tt* t>0» 
AM t*-y Kl6SPg)T*^t)$n4o 
fcfcYUVtf (7)^-^(1 (i % 7. 7° 
7-f h(7)^AvW-y h<7)|g#£S 

W&CfciifcUfg, YlflfiPlfcffc 

VDPcDUv^^tZte; *KCb 
■f0?r##iA^i:A\ A^«C*b-f 1 
^r» # i&sb t ij^S^. $ tlX In 5 t' 
•y hA^o/cctfeo Zatt€fe 
«LTS^j:fit«r»#i&t;«l: O 43 
fctt> •f5[A < ^BC-l)A N t>A^'b'i:iN(7) 

*fc» YUV= i:YAE= 1 <7)*1 
^•g-^-fr^J: ■) (Z v VDP^idf^A^" 
tt^*T->^^) e>*tT V^Cl iz^ A< 



^•ncjrz i fc * »i^/c(t(7)z t o 

(5AXDMSX v v >T-JE^(ZlSf^r 

*-fc< 51iic7)V9958(Z^LT(J^ 
^14 WST'A -^ T b s ^RVORtf 
3feJ^?nfcUs tv/\l-^f(7)>- 

64"t^*^ifeo 

fc-4sDfc-?TttUJfcl\, ifl*(7) 
ffllT-fc, Z80(7)JBJ«:«^fcfc«> 
(Z, t'^^-(7)HC-95(7)^— ^^E 
- K (Z80(7)_b1 , ±Ji^CPUT-*^ 
HD64180^f$oTl^) T#j£L 
fc V 7 h O^T^h-otzUzo 

Hl^t>ttX\ <$-R<Dt?-Jj 
)\smmitZtiT'tSL£\.\ *R 
(J5l#i|gE#x V9958(ZOUTlSIft 

7T $ tl7c t'T 1 *^ T-'V ? -f "tf-^ 

7^ *-(7)*7feltM (Plus-X) " t£ Z 
■bfeo ^<7)(JA-MSX^)IStzM-rS 



^T5feBZS5 



=107-24 

JKM«EMl1lill&-1l-1 

7U-x7mWUjt:'^ 

MSXV^j'v>^SSI5 
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MSX2+t$=«WH!I 






mmmvy&dKb^LzJ-jmv-^-jm 



c 



«C#>SPC-9801£f$ 

OFFt*fti:«*3ofco TfcV- 
-(7)F1XD(7)UiB^#l-(is x<f X? 
*Aft*C* % «bWB*:A*U HJ®£ 
foTA^f-f *? && < <fc 7 (- 
*v.*-C*S 5 0^t3.5-f >"?■ 

•f 7'(7V n — K "5 X J 7 H«fc o T Wi 

PC-9801 VX2teMM$:XtlXfrh7-° 
•f*?£\ FM-11AD2+T*ti7-V^ 
? & An T fr b lil & A n 3 «£ -5 

frht#Lin!& I^AtiT^b 
t-V *?£An, ^bC'J-tz-y h 
^•y^Wt^^I^ b 

-5 x T 7 rotft £IE L i ^HTH&fc 

>7>'|i"(l^ Z t ZmfrSbT 

(J, STOP^-MfftlfLT^b 



€ 



#£& 7-»f7"ay 
&£ *y7a>*cs$SU*&50 



A 



fc £*.(*; BASICS© 



#■§■$■ AtU ROM<7)5FH#iiiL£P 
U'ttj $ n& ROM rt<7)H7- 7'ju-f- > 

t»\ b\os tmfnz>b(ntz '%<r> 

T 7 **— C7)#i§£##ll LTto<, 
Q> N or 7 -T 7 -y 7> v >I§AF1 
©MSX-DOS*— /*-•/» K7v:7 
(3)MSX27"^ -*;u/\> K7'-y? 



€ 



fr/N'ya^dAftTTO 
£An?.^m Lfcv.*-C*(RUNfc 



A: 



BASICCD7°n?*7A£, 
lSAVE * AUTOEXEC. B AS* 

T-V^^^Anfc^STU-tz-y h 

T3£, -b-7?n^7°P^^A 

MSX-D0S$#-3*g^{Z(i. IrIL: 
J: n ^AUTOEXEC.BAT* t I.a-3 € 

iftW^n^T^ns-ifo 



IlKr^&frofco r-t,v V-7. 
€£TS&£©tfiiiS!l£A^ 71z 



BASIC7n^A£2f?i-r3o 



,&HB000,&HB14D 
:END 



10 CLEAR 100,&HCFFF:DIMD<15> 

20 PR:i:NT"onscan.bin=3 f7t4*aO" :AD=&HB000 s 

C=0:L=0 

30 FOR I=0TO15:READ A*: IF A*="*" GOTO 100 

40 A=VAL<"&h"+A*) :C=(C+A) AND 255:D<I)=< 

B(I)+A) AND 255: POKE AD , A : AD=AD+1 :NEXT 

50 READA* :A=VAL<"&h ,, +A*) :L=L+1 :IF COA T 

HEN PRINT990+10*L;":r a?,' r" -fz T&WW* V) 

17," :END 

60 GOTO 30 

100 ' 

110 PRINT"tr-7"^a'7" 

120 BSAVE"onscan .bin' 

130 PR I NT "COMPLETED. 1 

1000 DATA F5,E5,D5,C5,FE,02,20,53,23,23, 

5E,23,56,7A,B7,28, 5D 

1010 DATA 4A, 3D, 28, 08, 3D, 28, 49, 3D, 28, 4C, 

18,3F,7B,32,D9,B0, 00 

1020 DATA CD,A1 ,B0,3A,CC,B0,B7,20,41 ,21 , 

9A,FD,11 ,CD,B0,01 , 33 

1030 DATA 0A,00,ED,B0,21 ,C2,B0,11 ,9A,FD, 

01 ,0A,00,F3,ED,B0, B0 

1040 DATA 3A,43,F3,32,9B,FD,32,A0,FD,3A, 

DF,F3,F6,10,47,0E, 20 

1050 DATA 00,CD,F4,B0,3E,01 ,32,CC,B0,18, 

0F,CD,70,B0,18,0A, B4 

1060 DATA 7B,32,D7,B0, 18,04, 7B, 32, D8,B0, 

FB,C1 ,D1 ,E1 ,F1 ,C9, 61 

1070 DATA F3,3A,DF,F3,E6,EF,47,0E,00,CD, 

F4,B0,01 ,17, 00, CD, E0 

1080 DATA F4,B0,AF,32,F5,FA,01 ,02, IF, CD, 

F4,B0,3A,CC,B0,B7, 54 

1090 DATA C8,21 ,CD,B0, 11 ,9A,FD,01 ,0A,00, 

ED,B0,AF,32,CC,B0, 67 

1100 DATA C9,3A,D9,B0,21,D7,B0,86,47,0E, 

13,C3,F4,B0,3E,01 , 2F 

1110 DATA CD,DA,B0,E6,01 ,C4,32,B1 ,18,13, 

F5,CD,1C,B1,F1 ,FB, BA 

1120 DATA 18,10,F7,00,AE,B0,C9,F7,00,BA, 

B0,C9,00,00,00,00, 2A 

1130 DATA 00,00,00,00,00,00,00,00,00,00, 

F3,E6,0F,47,3E,0F, A6 

1140 DATA 4F,CD,F4,B0,ED,4B,06,00,0C,ED, 

78,F5,01 ,0F,00,CD, E7 

1150 DATA F4,B0,F1 ,C9,E5,D5, 50, 79,21 ,DF, 

F3,FE,08,F3,30,07, EB 

1160 DATA 21,DF,FF,FE, 18,30,04,AF,47,09, 

72, 79, ED, 4B, 07, 00, 5D 

1170 DATA 0C,ED,51,E6,3F,F6,80,ED,79,D1 , 

El ,C9,AF,32,F5,FA, F3 

1180 DATA 01 ,02,1F,CD,F4,B0,3A,D7,B0,47, 

0E,17,CD,F4,B0,C3, E7 

1190 DATA A1,B0,3E,01,32,F5,FA,01 ,02,3F, 

CD,F4,B0,3A,D8,B0, ®D 

1200 DATA 47,0E,17,C3,F4,B0,* 



MSX2 + x?-a;u#t*l* 149 




I 



MSX2 + x*(i, hW&MNtNC 
f £ o tz&tffo % 7- > +— XT ij\ 
MSX^ MSX2T*(i, — g|5<7)|^Il?- L 
fr&m$tlX^i-\tA,T'Ltz T 
>*-Mu »Atjc7)£#{iA£ 
«?IJ^fc<7)T-r o iI$(Jflt 1 5IIE 

ma^t-i^^*-^ 1 ajjifc 
#*<7>(i, ioiiifr$-A7j-f5£# 

A7J t i %g-( J % 0frh9£T'<r) 

(SfrEA, B, C, D, E v F£ 

miZtHZUi)it T%£. m 
¥<7)£$ tztt. 7JU*-*'- K(7) 
(5-3 £*&£#(*£ #^£l*lt£ < 

r-T*l±, ±gBT*16flM!>S*-(7yj£ 
$lj£ V 7 h <7)CT£T 3 Z t X\ 
i£Ef££T-# Set EL* Lfc„ 
Z-)LTfcW£ lOit^^-ATJ-r 
5*&T*fc 16£&$-A7JT &%£• 
Tt), ifcS^EfflA^IJfflLfcl* 

T*A7JT'# -Set 9 E^S(7)T-r 
7°p ^*7 V7*;u^>+-i: fcof-^ 

^7 7 >■? '> 3 >=¥—3--y h £ 

LTfc«ba.5rfrfcLfti-t*-A,tao 



%Sfr<nZ> 3 -i x r 4 -y ? #— HI 
*#*7c L Tfc*. % JBfcC LiLfc, 
z ayjfi&k £ , WMff&tM fc WJ 

ascot vc 

iss^i* 1 53"*— pom 5 (7)t *> 

UT'To l,T<7)£fc»h |CA< 2 -fH % 
8fttH#2;fc a>7 s >-9— #3 

o |fcjg#ltj&E ^oTiv|t z 

<7)(5*rE x V HJ -y ? * ? < 7°(7) 
+-^-KO.--y h(4X4)i, 

?^-7';b^'jZ^T-To 

ZZT^ELTUSICW; CMOS 
^-r7°T'-To 152^<-v(7)[I]3i:[l] 

7>^(14-StageBinary Counter/ 
Oscillator) X? =1 >7*>-*r— 1 

*£ mm 2 *£ *t#(t-r § *\ 

- £ «fi£# 2 *r^W*(-J"f 

n(j; iwmE«*ii^^igE4*'j* 

to 2^JH^7>^^'rtg|5T'14|S 

jg[<7>IHK*T; 16(Q4) S 32(Q5),64(Q6) , 
128(Q7) X 256(Q8),512(Q9)J024 
(Q10),4096(Q12) N 8192(Q13), 
1 6384-frJI) (Q 1 4) d) 1 0*I£i(7>frJU 

iti*<7)**<i^^Eift»j tm** «fc -5 
l s i^ijffl/3-;i^% y * -s t£(r>x\ 




4556(is Dual Binary to 1 of 

4 Decoder/Demultiplexers £$&£ 
nSICTfo 2 fcf<y r-<7)2JtA7j£ 
T f zi-K-rST f 3— KilK^ S 
o fc < |W| L J n E 2 -3 Ao fc fo(7) 
TTo E = Lc7)irc?t(ZA v B(7)f^ 
A73 E d: o TiMJR? ftfcffiEJfc L 
T s Q0~Q3c7)U-fn^a^O^L 

U^yUE^SWT-fo ffi^* x fcL 
nS"t±^\ TTL(7)74LS139i:k: > 

satt>«iit) t •?£: < Bcctto 

y^4555tu-)icfc N tr>iea* < 

5 o/c < [S]l;(t°>=l >/n°5 l 7';U)T* 

cnb(7)ic(ct, iz*>Fv— ^ 

LTfe*^l^-H-^ */■-, 4556 
*^H^ A^T is ^ I x%&( J , 
74HC139^74LS139, 4060* ? A¥ 
T'#^l^*g<i % 74HC4060A<fU> 
UE«fflT#Sf 8 :ftf>^o 
T^ N Isl»gl<7)^fc»JEf^n(fOK 



T-Tc l^nELTfc, H1100R 
fi^T"«AT'#§(i-rT*-to 



I 






(DRx£Rstf?nx\ gmommm 
: Mtzffi&m&wmmtmiz 

hcnX'ta 

n >T-'>y—izmmmzm^ 

^z>b<m£. m&mdpxucx^ 

IB^nTL^fTo 4060^fflU/c^ 
ffi[HSS(7)*§^ «^H®i;*»f 

#J-to 

f= 1 /(2.3XRxXC x ) (Hz) 

=1 >7-'>V— C7)^i($F(7 777 

Kfc ®?Atl(7)^±(iQ(*-A)i: 

T^o fefcL; 1 (KHz) ^f^ 100 
(KHz)^O, Rs^ 2 xRx(ZPI?> 



150 /v-p^x: 



U<7)T*-ra^Cx= 1,000pF(t°=l7 
777 K), Rx = 5.1KQ(*P*- 
A : *v— a- RiStSSSS^K Rs 
= 10KQ(£H1f£)£g£t-f$ 

6, f=85KHz(+P^U % y)i:^U 
iMfctfffl* lift-To &i«7>« 
(7) 8 ->>(7) 1 9 7h^< 7°t*+7>t 

^•izioTli, f f 006pF&t*$8 
atttttiK, 102fc*\ 0.001 >u F 

(7^D7777 K)£^£tl 

®Sffitzii % WHs7 5^^a 

>T f >"9- i - s fcL<(ii§$<7)-tZ7 
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HZiiZi 'keyboad controller 

118 ' 1989 by N.Segi 

120 '3J V7hrt rt-K" l)"+-ih -?X*T?*;j 

130 ADRS=S.:HD300 

140 FOR 1=0 TO 32 

150 GOSUB 200 

160 NEXT 

170 de:fusr=s < hd300 

180 A=USR<0) 
190 END 
200 SUM=0 
210 FOR J=0 TO 7 
220 READ DB*:DAT=VAL("?<h"+DB*> 
230 POKE ADRS,DAT:SUM=SUM+DAT 
240 ADRS=ADRS+1 
250 NEXT 

260 READ DW* :DW=VAL ( "&H ,, +DW*) :IF SUM=DW 
THEN RETURN 

270 PRINT "data error in "; 1000+1*10 
280 END 

1000 DATA 2A,A0,FD,7C,FE,D3,C8,7D, 559 
1010 DATA FE,29,C8,F3,21 ,9F,FD,11 , 4B0 
1020 DATA 04,D4,01 ,05,00,ED,B0,21 , 
1030 DATA 29,D3,22,A0,FD,3E,C3,32, 
1040 DATA 9F,FD,3E,03,32,FB,D3,FB, 
1050 DATA C9,3A,FB,D3,3D,CA,36,D3, 
1060 DATA 32,FB,D3,C3,04,D4,3E,05, 
1070 DATA 32,FB,D3,3E,0F,CD,96,00, 
1080 DATA E6,BF,5F,3E,0F,CD,93,00, 
.1. 090 DATA F3 , 06 , 04 , 3E , 0E , CD , 96 , 00 , 
1100 DATA F5,5F,E6,3F,2F,4F,7B,0F, 
1110 DATA 0F , 0F , 0F , E6 , 03 , 2 1 , 00 , D4 , 
1120 DATA 5F ,16,00,19,71 ,F1 ,E6, 30, 
1 1 30 DATA 4F , 3E , 0E , CD , 96 ,00 ,E6 , 30 , 
1140 DATA A9,CA,69,D3,10,D5,06,04, 39E 
1 1 50 DATA 2 1 , 00 , D4 , 1 1 , FC , D3 , 1 A , AE , 39D 
1160 DATA A6, 20, 12, 23, 13, 10, F7, 21 , 236 
1170 DATA 00,D4,11 ,FC,D3,01 ,04,00, 2B9 
1180 DATA ED,B0,C3,04,D4,48,0D,06, 393 
1190 DATA 04,0F,DA,A1,D3,10,FA,18, 
1200 DATA E6, 05, 79, 87, 87, 80 ,21 ,EB, 
1210 DATA D3,4F,06,00,09,7E,CD,B4, 3C 
1220 DATA D3,C3,87,D3,2A,F8,F3,77, 57C 
1230 DATA CD,E2,D3,3A„FA,F3,BD,C8, 62E 
1240 DATA 22,F8,F3,3A,DB,F3,A7,C8, 584 
1250 DATA 3A,D9,FB,A7,C0,3E,0F,32, 3F4 
1260 DATA D9,FB,D3,AB,3E,0A,3D,20, 3F7 
1 270 DATA FD , A7 , 3E , (BE , 28 , 1 , 3C , D3 , 328 
1280 DATA AB,C9,23,7D,FE, 18,00,21 , 40B 
1290 DATA F0,FB, 09,43,44, 45, 46, 38, 3FE 
1300 DATA 39,41,42,34,35,36,37,30, 102 
1310 DATA 31 ,32,33,05,FF,FF,FF,FF, 497 
1320 DATA FF,FF,FF,FF,00,00,00,00, 3FC 
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10 SCREEN 1,2,0:COLOR 15,l,lsKEY OFF:WID 
TH 38: CLEAR 10(30 :GOSUB 920 
20 CLEAR1000:DEFINTA-Z sDEFUSR=342 sDIM M< 
31 ,23) ,N*(27> ,A(27) ,H<27) ,G(27) ,F<27) ,B( 
27) ,X(6) ,Y(6> ,M*<17> sX=27 s Y=9 s YR=1370 sTR 
= 100:M=1 :AP=100:B<7)=1 :T=30 :R=RND (-TIME) 
30 GOSUB 1040:GOSUB 810:GOSUB 690:GOTO 7 



40 'MM MAIN MM 

50 S=STICK(0) :IF S=0 GOTO 50 

60 XX=(S=7)-(S=3) :YY=(S=1)-(S=5) :ON M(X + 

XX,Y+YY) GOTO 50 ,50 : X=X+XX : Y=Y+YY 

70 PLAY"V1303L16C":F0R J=-2 TO 2:F0R I=- 

2 TO 2 

80 F=M(X+I,Y+J)+1 :Xl=I*2+14sYl=J*2+6 

90 IF F>=12 THEN GOSUB 170 

100 ON F GOSUB 140,150,160,170,140,140,1 

40, 140,140, 140, 140 :NEXT I ,J :B=D+1 : IF D=5 
THEN A(0)=A(0)-10:F(0)=F(0)-(H(0) /50) :G 

OSUB 560 

110 IF M(X,Y)>=4 AND M(X,Y)<=10 THEN BT= 

1 :C=M(X,Y)-4:IF B(C)=0 THEN E=21 :GOSUB 7 

20: GOSUB 420 

120 IF M(X,Y)>=11 THEN GOSUB 180 

130 GOTO 50 

140 LOCATE XI ,Y1 :PRINT"pp":LOCATE X1,Y1+ 

1 :PRINT"pp" sRETURN 

150 LOCATE Xl,Yl:PRINT"x>;":LOCATE XI ,Y1 + 

1 : PR I NT ">:>:" : RETURN 

160 LOCATE XI ,Y1 sPRINT"hi" sLOCATE X1.Y1+ 

1 SPRINT" jk" :RETURN 

170 LOCATE XI ,Y1 sPRINT" 'a" sLOCATE X1,Y1 + 

1 : PR I NT "be" : RETURN 

180 'MM CITY MM 

190 D=D+1:IF D=5 THEN GOSUB 560 

200 C=M(X,Y)-4:E=21 :GOSUB 710: IF C=7 THE 

N 218 ELSE 390 

210 GOSUB 690:N=5:GOSUB 860 :U=USR (0) :PRI 

NT" l<tA\t, 2£"Wj 3t*-7Cfc 42*5 5¥(tt£" 

220 I*=INKEY*sIF NOT ( I*=" 1 "0RIS="2"0RI*= 

" 3 " OR I *= " 4 " OR I *= " 5 " ) THEN220ELSEF=VAL ( I * ) 

:GOSUB900:ON F GOTO 230,240,280,320,330 
230 IF G(0)<10 THEN GOSUB860 :GOTO210 ELS 

E AP=AP+5:A(0)=A(0)+5:G(0)=G(0)-10:N=2:G 
OSUB 860: GOTO 190 

240 L0CATE,13:PRINT"l*l-T5 2*it*5?" 
250 I*=INKEY*sIF NOT (I *=" 1 "0RI*="2" > THEN 
250 ELSE F=VAL(I*)sON F GOSUB 260, 270 :L 
OCATE , 13 sPRINT"*" |,Hj-;>»" '■ )T;"\&#)*1£« :GOSU 



B 690: GOSUB 890: GOTO 190 

260 IF T=100 THEN190 ELSE T=T+10:IF NOT ( 

TR=0) THEN TR=TR-10:RETURN ELSE RETURN 

270 IF T=0 THEN 190 ELSE T=T-10:IF NOT(T 

R=100) THEN TR=TR+10:RETURN ELSE RETURN 

280 LOCATE, 13 sPRINT" lfrl.i 29*J?" 

290 I*=INKEY*sIF NOT ( I*=" 1 "0RI*="2" ) THEN 

290 ELSE F=VAL(I*> :0M F GOTO 300,310 
300 LOCATE, 14 : INPUT "u<^.V ^" :E : IF E>G(0) 
OR E=<0 THEN GOSUB 860 : GOTO 190 ELSE G(0 
)=G(0)-E:F(0)=F(0)+E:N=1 :GOSUB 860:GOTO 
190 

310 LOCATE, 14 : INPUT"i:" H<^i,i" ;E: IF E>F(0) 
OR E=<0 THEN N=4: GOSUB 860: GOTO 190 ELSE 

F(0)=F(0)-E:G(0)=G(0)+E:N=1 :GOSUB 860:G 
OTO 190 

320 LOCATE, 13 s INPUT "fcXO." sE s if G(0XE*5 
THEN GOSUB 860: GOTO 210 ELSE G(0)=G(0)-E 
*5:H(0)=H(0)+E:N=3:GOSUB 860:GOTO 190 
330 GOSUB 690 :C=M (X ,Y) -4 s N=5s GOSUB 860 :U 
=USR(0) sPRINT"lU,ott"5 2$^£o 3fc<5<L 4*;*ol,.» 
*> 5y«.<£" -3 -mtv" 

340 I*=INKEY*sIF NOT ( I*=" 1 "0RI*="2"0RI* = 
"3"OR:[*="4"ORI*="5")THEN340ELSEF=VAL(I*) 
:GOSUB900:ON F GOTO 400,350,360,370,380 
350 A(0)=AP:N=2:GOSUB 860: GOTO 190 
360 IF G(0)<50 THEN GOSUB 860: GOTO 330 E 
LSE G<0)=G(0)-50:A(C)=A<C)+10:H(C)=H(C)+ 
10:N=6:GOSUB860:IF TR=100 THEN 190 ELSE 
TR=TR+5:GOTO190 

370 F=F(C)*3/10:E=G(C)*3/10:F(C)=F(C)-F: 
G(C)=G(C)-E:F<0)=F(0)+F:G(0)=G(0)+E:IF T 
R=0 THEN 190 ELSE TR=TR-10 :GDTO 190 
380 F(0)=F(0)+F(C)*3:G(0)=G(0)+G(C)#3:M( 
X,Y)=0:N=7:GOSUBB60:IF TR=0 THEN GOSUB 6 
90:GOTO 400 ELSE TR-TR-20 :GOSUB 690:GOTO 

400 

390 IF B(C)=0 THEN BT=0:GOTO 420 ELSE 33 



400 GOSUB 900:GOSUB 910:RETURN 

410 'MM BATTLE MM 

420 IF BT=1 THEN B*="ppppppppppppppppp p " 

ELSE B*="pppppppppdef eeeeee" 
430 H=H(C) :F0RI = 14T021:L0CATE6,I .-PRINTB* 
: NEXT: GOSUB 530 

440 U=USR(0) : LOCATE, 13 :PRINT"1 ££*,>-;. 2Df 5 
?" 
450 I*=INKEY*:IF NOT ( I*=" 1 "0RI*="2" ) THEN 

450 ELSE F=VAL(I*> :0N F GOTO 460,520 



460 F=3:X1=112:X2=128:G0SUB 540:FOR K=0 
TO 2:F0R 1=120 TO 152 STEP 16 
470 PUTSPRITE 2 , ( 120 , 1 ) , 15 ,2 :SOUND 6,15: 
SOUND 7,72: SOUND 9, 16: SOUND 11,0: SOUND 1 
2,10:SOUND 13,1 :FOR J=0 TO 40 :NEXTJ, I ,K 
480 PUT SPRITE 2 , (0 ,209) :60SUB 530 
490 R 1 =RND ( 1 ) » 1 : R2=RND ( 1 ) * 1 : A=A ( ) *R 1 - 
A(C)*R2:IF A=<0 THEN H (0) =H (0) +A/5 ELSE 
H(C)=H(C)-A/5 

500 IF H(0)=<0 THEN PUT SPRITE 3,(0,208) 
:GOT0 780 ELSE IF H<C>=<0 THEN PUTSPRITE 
3, (0,208) :N=8-(BT=1) :GOSUB 860»B(C)=1 :H 
(C)=H:GOTO520 

510 GOSUB 690:C=M(X ,Y)-4:E=21 :IF BT=1 TH 
EN GOSUB 720: GOTO 440 ELSE GOSUB 710:GOT 
440 

520 PUTSPRITE 3 , (0 ,208) :GOTO 400 
530 F=3:X1=96:X2=144 

540 FOR 1=120 TO 152 STEP 16: PUT SPRITE 
F,(X1 ,1) ,5,4:PUT SPRITE F+l , (XI , I ) , 1 ,5:F 
=F+2:NEXT:F0R 1=120 TO 152 STEP 16:PUT S 
PRITE F,(X2,I) ,8,3:PUT SPRITE F+1,(X2,I) 
, 1 ,6 :F=F+2 :NEXT rRETURN 
550 'MM TURN MM 
560 M=M+1:D=0:IF F(0)=<0 THEN F(0)=0:H(0 

)=H(0)-10 

570 IF A(0)=<0 OR H(0)=<0 THEN 790 

580 R3=RND(1)*10:IF NOT (R3=<TR/10) THEN 

H(0)=H(0)-(10-R3)*10 

590 FOR 1=1 TO 27: IF B(I)=1 THEN ED=ED+1 

:NEXT r ELSE NEXT I 

600 IF ED=27 THEN 740 ELSE ED=0 

610 FOR 1=0 TO 5: IF B(I)=1 THEN NEXT 1 

620 IF I>5 THEN 670 ELSE F=X-X ( I ) :E=Y-Y ( 

I) 

630 XY=X(I)-(F>0 AND E>0) + (F<0 AND E-'0)- 

(F>0 AND E=0)+(F<0 AND E=0) 

640 YX=Y(I)-(F<0 AND E>0)+(F>0 AND E<0>- 

(F=0 AND E>0)+(F=0 AND E<0) 

650 IF NOT(M(XY,YX)=l OR M(XY,YX)=2 OR M 

(XY,YX)>=3) THEN M(X (I ) , Y < I ) )=0 :X ( I ) =XY : 

Y(I-)=YX:M(X(I) ,Y(I))=I+4 

660 NEXT I 

670 IF M=9 THEN 680 ELSE 690 

680 FOR 1=7 TO 27: IF B ( I ) =0 THEN F(I)=F( 

I ) +A ( I ) :G ( I ) =G ( I ) +A ( I ) .-NEXT I ELSE F < I ) = 
F(I)+A(I>*< (100-T)/100) :G(I)=G(I)+A(I)*< 

(100-T)/100) :F(0)=F(0)+A(I)*(T/100> :G(0) 

=G(0)+A(I)*(T/100) :NEXT I 

690 C=0:E=1 : LOCATE E,11:PRINT USING"TR # 

####";TR:IF M=13 THEN YR=YR+1 :M=1 : IF YR= 

1405 THEN 740 

700 LOCATE 11,1 sPRINT USING"####*" ; YR :LO 

CATE 16,1 sPRINT USING"##H" ;M 

710 LOCATE E,7sPRINT USING"G #####" ;G(C 

> sLOCATE E,9:PRINT USING"F #####" ; F(C) 

720 LOCATE E, 3 sPRINT USING"AP #####"; A (C 
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SHORT PROGRAM 



) :LOCATE E,5:PRINT USING"HP #####" ;H(C> 

730 LOCATE E,1:PRINT N*(C):RETURN 

740 ' — — ENDING 4MMM 

750 CLS:FOR 1=10 TO 17:L0CATE 10,I-7:PRI 

NT M$(I> :NEXT I 

760 LOCATE 1 1 ,2 :PRINT"-" ; YR ;"-" :LOCATE 1 

3,16:PRINT"THE END" :LOCATE 8 , 13 :PRINT"tM 

&-fttt T <r?9&4JH<t" :LOCATE 8 , 14 :PRINT"fc?lOL.fc« 

770 PLAY"S8V15L804EEFGGFEDCCDEEE." :U=USR 

(0) -.GOTO 800 

780 '•••• GAME OVER •••• 

790 CLS:U=USR(0) : LOCATE 10 , 1 1 : PR I NT "GAME 

OVER " : PLAY " V 1 5L 1 504CDECDECDEC " 
800 I*=INKEY*:IFI$<>""THEN CLS :PUTSPRITE 

0,(0,208) :LOCATE 10,11 :PRINT" REPLAY " 
:GOTO 20 ELSE 800 
810 '•••• TITLE •••• 

820 U=USR(0) :LOCATE 4,7:PRINT"<< EMPIRE 
OF TIMUR >>":LOCATE 13 ,9 :PRINT" v a" :LOCAT 
E 13,10:PRINT"bc" :LOCATE 9 , 12 :PRINT"HIT 
ANY KEY" 

830 I*=INKEY*:IFI*<>""THEN ELSE 830 
840 ' — • GAMEN •••• 

850 CLSrPUT SPRITE , ( 120 ,47) , 15 :PUT SPR 
ITE 1 , (120,47) ,4:F0R J=0 TO 20 STEP 20 :L 

OCATE J,l:PRINT"i 1 " :FOR 1=2 TO 1 

l:LOCATE J,I:PRINT" I I " :NEXTI :LOC 

ATE J , 12 :PRINT" ' ' " :NEXTJ :RETURN 

860 '<MM KUHAKU 



870 GOSUB 900: IF N=5 THENELSE PLAY"V15L1 

607CED" 

880 LOCATE, 13 :PRI NT MS(N):N=0 

890 FOR 1=0 TO 1000:NEXT I : RETURN 

900 F*=SPACE*(29> :FOR 1=13 TO 22:L0CATE, 

I:PRINT F*:NEXT I :RETURN 

910 F*=SPACE*<8> :FOR 1=1 TO llrLOCATE 21 

,I:PRINT F*:NEXT I : RET URN 

920 '•••• FONT •••• 

930 LOCATE 9, 10:PRINT"DATA h .3£3t*;*?" 

940 VPOKE BASE(6)+2,8<HB0:VPOKE BASE (6) +3 

,S<H80:VPOKE BASE (6) +12 ,8<HB0 

950 F0RI=8T011 :VPOKEBASE (6) +1 ,8<H70:NEXT 

960 VPOKE BASE(6)+13,8<H20:VPOKE BASE (6) + 

1 4 , 8<HC2 : VPOKE B ASE ( 6 > + 1 5 , 8<H40 

970 FOR 1=384 TO 727 :VPOKE I,VPEEK(I) OR 

VPEEK(I)/2:NEXT I 
980 READ F*:IF F *•="¥" THEN 1010 
990 Q=BASE ( 7 ) +ASC ( F* > *8 

1000 FOR J=Q TO Q+7:READ F* : VPOKE J,VAL( 
"&H"+F*> :NEXT J:GOTO 980 
1010 •••• SPRITE •••• 

1020 FOR 1=0 TO 6: FOR J=0 TO 31 :READ F* : 
SP* ( I ) =SP* ( I ) +CHR* (VAL ( "8<H"+F*> ) :NEXT J 



1030 SPRITES (I >=SP*(I> :NEXT I :RETURN 
1040 •••• MAP •••• 

1050 RESTORE 1550: FOR 1=0 TO 17:READ M* ( 

I) :NEXT I 

1060 FOR K=0 TO 16 STEP 16:FOR.J=0 TO 23 

1070 READ F* :Fi:=R I GHT* ("0000000000000000 

"+BIN*(VAL("8<H"+F$) ) ,16) 

1080 FOR 1=0 TO 15:M(K+I , J) =VAL (MID* (F* , 

1+1,1)) :NEXT I,J,K:FOR J=8 TO 29:FOR 1=0 

TO 3:READ F :M ( J ,F) =2:NEXT I ,J 
1090 FORK=0TO4:READF,F1 ,F2 ,F3 :FORJ=FTOFl 
:FORI=F2 TO F3 :M ( J , I )=2 :NEXT I,J,K:FOR I 
=0 TO 6:READ X ( I > , Y ( I > ,A ( I > ,H < I > ,N* ( I > :M 
(X(I) ,Y(I))=I+4:NEXTI:G(0)=200:F(0)=300 
1100 F0RI=7T027:READ F ,E ,A ( I ) ,H ( I ) ,G ( I ) , 
F(I) ,N*(I) :M(F,E) =1+4: NEXT I :CLS:RETURN 
1110 '•••• FONT DATA •••• 
1120 DATA v ,10,29,38,15,06,33,48,79 
1130 DATA a,08,94,DC,A8,60,CC,12,9E 
1140 DATA b ,32,4B,78,4B,4A,7A,78,30 
1150 DATA c,4C,D2,1E,D2,52,5E,1E,0C 
1160 DATA d ,00,F3,F1 ,F1 ,F0,03,F1 ,F1 
1170 DATA e,00,FB,FB,FB,00,DF,DF,DF 
1180 DATA t ,00,78,78,78,78,00,78,78 
1190 DATA h, FF,FE,F0, 81 ,03,37, 6F,7F 
1200 DATA i ,FF,1F,03,80,C0,EC,F6,FE 
1210 DATA j,FF,FB,F7,E7,4F,9F,C7,F8 
1220 DATA k,FF,DF,EF,E7,F2,F9,E3,lF 
1230 DATA p, 00, 44, 00, 12, 00, 40, 04, 00 
1240 DATA x ,FF,FF,FF,FF,FF,FF,FF,FF,¥ 
1250 '•— SP DATA •••• 
1260 DATA 00,18,33,34,62,66,63,60 
1270 DATA 22, 19, 30, 37, 00, 00, 0F, 00 
1280 DATA 40,B0,60,10,A0,B0,E0,D6 
1290 DATA 29, CF, 89, 79, 06, 00, 00, 78 
1300 DATA 03, IF, 37, 37, 67, 67, 63, 6F 
1310 DATA 2F,7F,77,37,07,07,0F,00 
1320 DATA E0,F0,F0,F0,F0,F0,E0,F6 
1330 DATA FF,FF,FF,FF,F6,F0,70,78 
1340 DATA 00,00,01 ,27, IF, IF, 3F,3F 
1350 DATA 7F,3F,3F,1F,1F,27,01 ,00 
1360 DATA 00,00,00,C8,F0,F0,F8,F8 
1370 DATA FC,F8,F8,F0,F0,C8,00,00 
1380 DATA 07, 0F, 00, 05, 00,07,43,60 
1390 DATA 33, 1A, 09, 06, 06, 01 ,07,00 
1400 DATA E0,F0,F0,08,B8,B8,3C,00 
1410 DATA 38,58,E8,C0,30,8C,9C,00 
1420 DATA 07,0F,0F,10, 1D,1D,3C,00 
1430 DATA 1C,1A,17,03,0C,31 ,39,00 
1440 DATA E0,F0,00,A«,B0,E0,C2,06 
1450 DATA CC, 58, 90, 60, 60, 80, E0, 00 
1460 DATA 0F,1F,1F,3F,3F,3F,7F,3F 
1470 DATA 3F,3F,3F,1F,7F,FF,FF,7F 
1480 DATA F0,F8,F0,F«,F8,F2,E7,EF 



1490 DATA FE,FC,F8,F0,F0,E0,E0,E0 

1500 DATA 0F,1F,0F,0F, 1F,4F,E7,F7 

1510 DATA 7F,3F,1F,0F,0F,07,0F,07 

1520 DATA F0,F8,F8,FC,FC,FC,FE,FC 

1530 DATA FC,FC,FC,F8,FE,FF,FF,FE 

1540 '•••• MESSAGE •••• 

1550 DATA "*#" »4*I+A." , "ttzt" :■¥" " , " APft>" *)»" l J 

$Vt" , "HP*" ft&" 9ft£ u , "FOODtT tM$M," , "f ii-ll/? 

*,::" w. mi is" , "tismtr uPL.fL.fc" , "fcL** tiivfnltuz 

1560 DATA "pppppppppp" ,"pxxpppxpxp" ,"pxx 

xppxppp" ,"xppppppppp" , "xppppppppp" ,"xxxp 

pppppp" ,"xxppppxppp" ,"pppppppxxx" 

1570 ' •••• MAP DATA •*•• 

1580 DATA FFFF,FFFF,C000,C301 ,C983,D9C1 , 

DFE1 ,DFE0,DF00,E001 ,C000,C000 

1590 DATA C000,E300,FF80,F380,FF80,FF03, 

FF00 , DE0 1 , C000 , D000 , FFFF , FFFF 

1600 DATA FFFF, FFFF, 0003, E183,E183,C003, 

F003 ,E803 ,E003 ,F003 ,F003 ,3003 

1610 DATA 0003,0003,0003,0003,0003,0003, 

8003 , 6003 , 78C3 , 3FF3 , FFFF , FFFF 

1620 DATA 10,12,20,21,10,11,12,21,11,12, 

20,21 ,6,7,12,21,6,7,12,13,13,14,16,21 ,6 

1630 DATA7,13,14,7,8,10,14,11 ,14,16,21 ,1 

1 ,17,18,21 ,12,14,18,21 ,3,12,14,19,11 ,15 

1640 DATA 17,18,11,14,18,20,14,15,16,20, 

12,15,19,20,12,13,17,18,13,14,16,17,14 

1650 DATA 15, 16, 17, 13, 14, 19, 20, B, 19, 20, 2 

1 ,B,9,20,21 

1660 DATA 0,31,0,1,0,1,0,8,30,31,0,23,0, 

1 ,19,23,4,19,22,23 

1670 DATA 2,16,100,300,T-*A-Jl>,14,2,180,40 

,¥7° f-t 7 ,29 ,5 , 1 10 ,250 , -H»»" 9-f , 18 , 16 ,200 ,3 

00 ,£?" 'v 77 -11/ ,7 , 19 ,250 ,600 ,7£«;-7 ,7,9 ,270 , 1 

600 ,*3rc:«Mci ,2,7 ,310 , 100 ,t" t yv 

1680 DATA 27,8,150,500,111 ,111 ,?7)l;ti:/h" ,2 

9 , 3 , 1 00 , 400 , 300 , 200 , 9VTj\- , 28 , 1 6 , 1 00 , 4 1 , 

100 , 199 ,7)7" -A ,22 ,5 ,80 ,100 ,90 ,100 ,1»i1" I'* , 

24, 7, 70, 250, 200, 220, fT' 7 

1690 DATA 25,11 ,75, 155, 100, 120,.. ^)W" ,22,1 

2,98, 233 , 1 1 2 , 1 44 , f-jx K , 24 , 1 5 , 1 38 , 1 60 , 1 00 

, 1 00 , 1TJT iMl» , 1 9 , 1 6 , 1 60 , 400 , 300 , 300 , 4TO?t\- 

■j ,20 , 1 9 , 144 ,240 , 150 , 155 ,V-=7-7." 

1700 DATA 17,13,178,411 ,230,341 .HZ" *>" 4V , 

12 ,2 , 146 ,500 ,340 ,230 ,VM ,6 ,5 , 190 ,200 , 120 

,130, J)"; 77 ,12, 10,210,370,310,270,97" \>-7." 

1710 DATA 14, 15, 260, 600, 900, 900, i\" 99" -vf- , 

6 , 1 , 1 80 , 280 , 1 00 , 1 00 , 71' 71= ,10,14, 220 , 340 , 

440 , 440 , 3H/«I T.° ,9,18, 240 , 380 , 240 , 230 , 9" 727 

7 

1720 DATA 2, 8, 280, 1500, 160, 160, t"T :'*■■>£, 

3,10, 220 , 300 , 220 , 220 ,7" Ibf , 2 , 20 , 240 , 600 , 3 

60,360,t)-iD 
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10 REM — 
20 REM 
30 REM 
40 REM 
50 REM — 
60 TURBO 
70 DEFINT 
80 FOR 1= 
90 ON 1+1 



AIR DOG ; 

HERI.DAT" making program, 
by XOR 

ON 

A-Z : SCREENS , 2 : COLOR 1 5 , , : CLS 

TO 5 
GOTO 220,230,240,220,250,220 



100 FOR J=0 TO 15:READ D*:FOR K=0 TO 15 

110 A=VAL ( "&H"+MID* (D* ,K+1 , 1 ) > 

120 PSET(I*16+K,J) ,A:NEXTK,J 

130 NEXTI 

140 FOR 1=0 TO 23: READ D*:FOR J=0 TO 63 

150 A=VAL("8<H"+MID$(D* ,J+1 ,1) ) 

160 PSET < ( IM0D4) *64+J , ( I¥4) +17) ,A 

170 NEXTJ,I 

180 FOR 1=0 TO 15:READ D*:FOR J=0 TO 15 



190 A=VAL(MIDS(D*,J+1,1>) 
200 PSET(I*16+J,16) ,A:NEXTJ,I 
210 GOTO 260 
220 GOTO 100 

230 LINE(16,0)-STEP(15,15) ,12,BF:F0R J=0 
TO 30:X=RND(1)*7:Y=(J¥4) :PSET ( 16+X*2 , Y* 
2) ,13:PSET(18+X*2,Y*2) , 13 :NEXTJ :GOTO 130 
240 LINE(32,0)-STEP<15,15> ,11 ,BF:FOR J=0 
TO 30:X=RND(1)*7:Y=(J¥4> :PSET (32+X*2 , Y* 
2) ,9:PSET(34+X*2,Y*2) ,9 sNEXTJ :GOTO 130 
250 LINE(64,0)-STEP(15,15) , 10 ,BF :LINE (64 

,0) -STEP (15, 15) ,5,B:LINE(64,15)-STEP<15, 
0) ,4:LINE(79,0)-STEP(0,15) ,4:G0T0 130 
260 TURBO OFF 

270 COPY (0,0) -(255, 22) ,0TO"HERI .DAT" 
280 END 

1000 REM GR,SP,MP DATA 

1010 DATA C1CCCDDCCC1CDDDD 

1020 DATA DD1DC1DDC1CDDDCC 

1030 DATA CDCCCCDCCCDCCD1 1 

1040 DATA DCDDDCDDDCDCDCCD 
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1050 DATA DC1CDC1CCC1DCD11 

1060 DATA CD1DC1DDDDDC1CDC 

1070 DATA C1DDD1DC1CCD11DD 

1080 DATA DCCDDDC1DC1DCCDD 

1090 DATA C1CCDCCDCDCDC1DC 

1100 DATA 1CD1DD1CDC1CD1DC 

1110 DATA 1D1CCD1D1CCD1DCD 

1120 DATA C1DDDCCDCDDCD1CD 

1130 DATA CDCC1D1C1CCCDC1C 

1140 DATA DD1CDCDD1D1CCD1C 

1150 DATA DCD11CCDCD11D1DC 

1160 DATA DCC1C111CDD1CCCD 
1170 DATA 44444444445F4444 
1180 DATA 444444444545F444 
1190 DATA 445F454444444444 
1200 DATA 45F5F55444444445 
1210 DATA 4444444444444444 
1220 DATA 4444454444445F54 
1230 DATA 4444444444444444 
1240 DATA 44444444F4444444 
1250 DATA 4554444545545444 
1260 DATA 5455444444444444 
1270 DATA 4444444444444444 
1280 DATA 5444444444444455 
1290 DATA 44445F5545444444 
1300 DATA 4444444444444444 
1310 DATA 45444444445F5544 
1320 DATA 4444444444444444 
1330 DATA 5555555555555554 
1340 DATA 5AAAAAAAAAAAAAA4 
1350 DATA 5AAAA444444AAAA4 
1360 DATA 5AAA49889995AAA4 
1370 DATA 5AAA48F99985AAA4 
1380 DATA 5AAA48F89995AAA4 
1390 DATA 5AAA48F99985AAA4 
1400 DATA 5AAA48F89995AAA4 
1410 DATA 5AAA48F99985AAA4 
1420 DATA 5AAA48F89995AAA4 
1430 DATA 5AAA48F99985AAA4 
1440 DATA 5AAA48F89995AAA4 
1450 DATA 5AAA49899995AAA4 
1460 DATA 5AAAA555555AAAA4 
1470 DATA 5AAAAAAAAAAAAAA4 
1480 DATA 4444444444444444 
1490 DATA 4061331A0C1F050500000000000000 

0000008000003000806030 1 80C04000000 

1500 DATA 03030707031D1E0F07030101010701 

1 8080C0C0C0F0F0608080000000C00080 

1510 DATA 00010302001D0507040C1830600000 

000C 1 8B06040B000000000000000000000 

1520 DATA 03030707071F1E0D03030101010701 

1 8080C0808070F0E08080000000C00080 

1530 DATA 000000081 818 18080B000008080000 

0000000020303030202000002020000000 

1540 DATA 000000000001010101030100000000 

000000000000B0808080C0800000000000 

1550 DATA 00071F3F7F0001030301007F3F1F07 

0000C0F0FSFC0080C0C08000FCF8F0C000 

1560 DATA 07183871E1FF02050403FFE1713818 

07E0F80C0603FF406060C0FF03060CF8E0 

1570 DATA 00003C007D7B7F7F73212D011D0101 

0000003C00BEDEFEFECEB4B480B8808000 

1580 DATA 003C567FB3EDE9FBAD5E7E7E3E3E02 

1 003C6AFE5935 1 539B 1 7EFEFEFCFCC080 

1590 DATA 0001030303053A7D3A050303030100 

00000080808040B87CB840808080000000 

1600 DATA 010304040D3B458F5D3B0C04050301 

000080C0C0E0B84CDEFCB8E0C0C0800000 

1610 DATA 0000030F1F1F3F1F201F201F1F0F03 

000000C0F0F8F8FCF804F804F8F8F0C000 

1620 DATA 00030C162F2640603F6A5F213F1F0F 

0300C0300804040206FCAEFEFCFCF8F0C0 

1630 DATA 000107333C7F7F7F7F7F3F3F1C0E03 

000080E0CC 1 CDEDEDEDEDEDCDC 1 850C000 

1640 DATA 0006387E63C2D2D2D2D26262331F0E 

030060 1 C7EE2 A 1 A9 A929292222E4 A830C0 

1650 DATA 00201 1130F131536592F2202000000 

00000488C8F0C8A86C9AF4444000000000 

1660 DATA 60713A3C332E6ECFA6D45D77262404 

02068E5C3C0C3476F3650BBAEE64242040 

1670 DATA 030F3F3F7F7FFFFFFFFF7F7F3F1F20 

30C0F0FCFCFEFEFFFFFFFFFEFEFCF8040C 

1680 DATA 000000000000010303010000000000 
Q000000000000080C0C080000000000000 



1690 DATA 000000000 107070F0F07070 1000000 

000000000080E0E0F0F0E0E08000000000 

1700 DATA 030F1F3F7F7FFFFFFFFF7F7F3F1F0F 

03C0F0F8FCFEFEFFFFFFFFFEFEFCF8F0C0 

1710 DATA 030F1F3F7F7FFEFCFCF87878381C0C 

02C0F0F8FCFE860 1 000000000000000000 

1720 DATA 030F1E387060E0C0C0C04040200000 

00C0F00800000000000000000000000000 

1730 DATA 0001100011112221 
1740 DATA 3111001100000000 
1750 DATA 1012333333333101 
1760 DATA 3333333333333333 



1770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
1850 
I860 
1870 
1880 



DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 



2221222222222210 
1112222221222222 
1 044445544545454 
5454455554455554 
0111022012122022 
1030212133222231 
0223303323001230 
4044403321 133444 
0445525250112212 
2304244405024344 
0443332243553553 
5533221453545454 
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10 REM 

20 REM AIR DOG by XOR 

30 REM 

40 SCREENS, 2,0: COLOR 15 ,0 ,0 :CLS :CLEAR0 :M 
AXFILES=0 

50 COPY"HERI .DAT"TO(0,0) ,1 
60 _TURBO ON 

70 DEFINT A-Z:DIM A (2) ,MX < 1 > ,MY ( 1 ) ,SC (8 , 
15) ,TK(3,4) ,TM(1,3) ,BS(6,2) :DEFUSR=8<H69 : 
SETPAGE , 1 :A=USR (0) :SETPAGE ,0 
80 R=RND(-TIME) :ON INTERVAI_=2 GOSUB 450 
110 '#C- 

120 VDP(6)=8<H1F:VDP<12>=1 :VDP(5)=239 
130 VDP(9)=VDP(9)AND253 
140 COPY (0,1 7) -(255, 22) ,1 TO (0,240) ,1 
150 RESTORE1670:FOR 1=0 TO 8:READ D* 
160 IF LEN(D*>=1 THEN D*=STRING* ( 16, D*) 
170 FOR J=0 TO 15:A=VAL("S<H"+MID*(D$,J+1 
,1) ) :A=A-(I=7)*64:SC(I , J) =A :NEXTJ , I 
180 FOR 1=0 TO 15:VP0KE &HF400+I ,2 :VPOKE 
&HF41 0+1 ,65: VPOKE S<HF420+I ,15 :VPOKE &HF 
430+1 , 15:VPOKE!<HF440+I ,3:NEXT I 
190 RESTORE 1740: READ D*:FOR 1=0 TO 15:F0 
R J=0 TO 2 

200 A(J)=VAL(MID*(D*,I*3+J+1 ,1) > :NEXT J 
210 COLOR=(I,A(0) ,A(1) ,A(2) ) :NEXT I 
220 FOR 1=0 TO 31 :VPOKE&HF600+I*4,I»8:VP 
OKE&HF602+I*4,96:NEXTI 

230 CLS : SC=0 : LE=2 : SS=0 : S2=0 : S3=0 : S4=224 : 
X=120 : Y=160 :P=0 :M=0 :L=7 :W=-1 :BK=0 :TK=0 :T 
M=0 :BS=0 :BI_=4 :BP=BL*15 :MB=0 
240 JX=104 : JY=64 : J*="READY ! " :BOSUB1500 :G 
OSUB1540 

250 FOR 1=0 TO 30000 :NEXTI :CLS 
260 FOR 1=0 TO 15:FOR J=4 TO 11:COPY(0,0 
)-STEP(15,15> ,1T0(J*16,I»16) ,0:NEXTJ,I 
270 SOUND 7,!<B10100110 :SOUNB 8,16:S0UND 
9,16:S0UND ,40 : SOUND 1 ,0 : SOUND 6,5: SOUND 

12,20:SOUND 1 1 , 100 : INTERVAL ON 
280 IF MB>0 THEN G 1=0: GOTO 320 
290 P=8-P:S=STICK(0>+STICK(1) :G1=STRIG(0 
)+STRIG(l) 

300 X = X-( (S=70RS=60RS=8)»(X>64)-(S=30RS= 
20RS=4)«(X<176) ) :Y=Y-( (S=10RS=80RS=2) * ( Y 
>0 ) - ( S=50RS=60RS=4 ) * ( Y < 1 96 ) ) 
3 1 VPOKE&HF600 , 255AND ( Y - 1 +SS ) : VP0KE&HF6 
01 , X : VPOKE&HF602 ,P : VPOKE&HF604 ,255AND < Y- 
1 +SS ) : VPOKE&HF605 , X : VPOKE&HF606 , P+4 
320 IF INKEY*="Q" THEN END 
330 IF Gl=-1 AND GG=0 AND M<2 THEN M=M+1 
:MX(M-1)=X:MY(M-1)=Y 
340 GG=G1:IF M>0 THEN GOSUB 360 
350 GOTO 280 
360 1=0 

370 IF M=0 THEN RETURN 
380 MY (I)=MY(I)-4 

390 IF MY (1X0 THEN M=M-1 : VPOKE?<HF60B+I« 
4,217: VPOKE&HF60A+ I *4 , 96 : GOTO 420 
400 VPOKE !<HF608+I*4,255AND(MY(I)-1+SS) : 
VPOKE S<HF609+I*4,MX(I) :VPOKES<HF60A+I*4 , 1 
6 

410 1 = 1 + 1: IF I>=M THEN RETURN ELSE 380 
420 IF 1=0 THEN VPOKE&HF60C ,217 :VPOKE8<HF 
60E,96:MX(0)=MX(1) :MY(0)=MY(1) :MX(1)=0:G 
OTO 370 

430 MX (1)=0: RETURN 
440 REM Interrupt Routine 



450 SETPAGE , 1 : A=PO I NT ( S2 , 1 6 > : B=PO I NT ( S2+ 

128,16) :COPY(A*16,0)-STEP<15,15> ,1T0(S3+ 

64, S4) ,0 

460 L=L+W:COLOR=(8,L,0,0) :SETPAGE,0:IF L 

=0 OR L=7 THEN W=-W 

470 SS=SS-1 :SS=SSANB255:VDP(24)=SS 

480 IF (SSAND127)=0 AND BS=0 THEN S2=S2+ 

1 :S2=S2AND127:IF (S2AND31)=0 THEN S2=(S2 

-1) AND127:BS=-120 

490 IF (SSAND1)=0 THEN S3=S3+16 :S3=S3AND 

127 

500 IF (SSAND15)=0 THEN S4=S4-16 :S4=S4AN 

D255:IF BO0 AND TK<4 AMD BS=0 AND RND ( 1 

) >.3 THEN GOSUB 940 

510 IF BSO0 THEN GOSUB 1180 

520 0=0 

530 IF TK=0 THEN G=0:GOTO 650 

540 IF TK(D,2)=0 THEN 640 

550 TX=TK(Q,0) :TY=TK(Q,1) :U=TK(Q,3) :V=TK 

(Q,4):0N TK(Q,2) GOSUB 790,810,830,850,8 

60 

560 TK(Q,3)=U:TK(Q,4)=V:TX=TX+U:TY=TY+V: 

TK(Q,0)=TX:TK(D,1)=TY 

570 IF TX<64 OR TX>176 OR TY>211 THEN GO 

SUB B70:GOTO 540 

580 IF MB=0 AND ABS(X-TX)<12 AND ABS(Y-T 

YX12 THEN MB=1 

590 VP0KES<HF614+Q*B, (TY-l+SS) AND255 :VPOK 

E8<HF615+0*8,TX : VP0KE&HF61 8+Q*8 , (TY-l+SS) 

AND255 : VP0KE&HF6 1 9+Q*8 , T X 

600 FOR 0=0 TO M-l 

610 IF ABS(MX(0)-TXX12 AND ABS(MY(0)-TY 

X12 THEN GOSUB n30 

620 NEXT 

630 IF TM<2 AND BS=0 AND RND(1)>.9 THEN 

GOSUB 1040 

640 0=0+1: IF Q<TK THEN 530 ELSE Q=0 

650 IF TM=0 THEN 730 

660 TX=TM(Q,0) :TY=TM(Q,1) :U=TM(Q,2) :V=TM 

(Q,3) 

670 TX=TX+U:TY=TY+V:TM(Q,0)=TX :TM(Q,1)=T 

Y 

680 TX=TX¥100:TY=TY¥100 

690 IF TX<58 OR TX>181 OR TY<-6 OR TY>20 

1 THEN GOSUB 1080: GOTO 720 

700 IF MB=0 AND ABS(X-TXX6 AND ABS(Y-TY 

X6 THEN MB=1 

710 VP0KE&HF634+Q*4 , (TY-l+SS) AND255:VP0K 

E8<HF635+Q*4,TX 

720 Q=Q+1:IF GKTM THEN 650 

730 FOR Q=0 TO 3 :B=VPEEK (!<HF63E+Q«4> 

740 IF B=96 THEN VP0KE?<HF63C+Q*4 ,217 :GOT 

760 

750 B=B+2:VP0KE?<HF63E+Q»4,B 

760 NEXT Q 

770 IF MB>0 THEN GOSUB 1560 

780 RETURN 

790 IF V=4 THEN RETURN ELSE IF V=2 AND A 

BS(X-TXX8 THEN V=4:U=-U*3 ELSE V=2 

800 RETURN 

810 IF V=6 THEN RETURN ELSE IF V=2 AND A 

BS(X-TXX12 THEN V=6:U=0 ELSE V=2:U=0 

820 RETURN 

830 IF V=0 AND UO0 THEN RETURN ELSE IF 

V=4 AND ABS(Y-TY)<8 THEN V=0 :U=SGN ( X-TX) 

*2 ELSE V=4:U=0 

840 RETURN 
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SHORT PROGRAM 



850 V=6:U=( (TY¥32MOD2>=0>*6+3: RETURN 

860 V==3:U=U+( <TY¥36M0D2> =0) *2+l :RETURN 

870 VP0KE8<HF616+Q*B,96:VP0KE8<HF61A+Q*8,9 

6:TK=TK-1 :TK<Q ,2) =0 :TK (0 ,3) =0 :TK (Q ,4) =0 

880 IF Q=TK THEN RETURN 

890 FDR T=Q+1 TO TK : TK (T-l ,0) =TK (T ,0) :TK 
(T-l ,1)=TK(T,1> :TK(T-1 ,2)=TK(T,2) :TK(T-1 
,3)=TK(T,3) :TK(T-1 ,4>=TK(T,4> :VPOKE8<HF60 

E+T*8 , VPEEK ( 8<HF6 1 6+T*8 > : VP0KE&HF6 1 2+T*8 , 

VPEEK <8<HF61A+T*8> 

900 FOR R=0 TO 15:VPOKE8<HF430+T*32+R,VPE 

EK(8<HF450+T*32+R> :NEXT R,T 

910 TK ( TK , 2 ) =0 : TK ( TK , 3 ) =0 : TK ( TK , 4 ) =0 : VPO 

KE8<HF616+TK*8 ,96 : VPOKE 8<HF61A+TK*8 ,96 

920 VP0KE8<HF614+TK*8 ,217 :VPOKE8<HF618+TK* 

8,217 

930 FOR R=0 TO 15 :VPOKE8<HF450+TK*32+R ,0 : 

NEXTR: RETURN 

940 TK (TK ,0) =RND ( 1 ) *96+80 :TK (TK , 1 ) =0 

950 ON B GOSUB 990,1000,1010,1020,1030 

960 TK(TK,3)=U:TK(TK,4)=V 

970 TK(TK,2)=B:Q=B-1 :R=TK*2+5:60SUB 1120 

980 Q=7:R=R+1 :GOSUB 1 120 :SETPABE , 1 :PUTSP 

RITE TK*2+5,(TK(TK,0> , TK (TK , 1 ) +SS-1 ) , ,4+ 

B*2:PUTSPRITE TK*2+6 , (TK (TK ,0) ,TK(TK,1>+ 

SS-1) , ,5+B*2:SETPAGE,0 :TK=TK+1 : RETURN 

990 U=SGN(X-TK(TK,0) ) :V=2:RETURN 

1000 U=0:V=2: RETURN 

1010 U=0:V=2: RETURN 

1020 U=-3:V=6: RETURN 

1030 U=6:V=3:RETURN 

1040 TM(TM,0)=TX*100:TM(TM,1)=TY*100 

1050 AX=ABS(X-TX) :AY=ABS < Y-TY ) :IF AX>AY 

THEN TM(TM,2)=(X-TX)*200¥AX:TM(TM,3)=(Y- 

TY)*200¥AX ELSE TM (TM ,2) = (X-TX )*200¥AY :T 

M(TM,3)=(Y-TY)*200¥AY 

1060 B=Q:0=8:R=13+TM:G0SUB 1120:Q=B 

1070 SETPAGE,1 :PUTSPRITE13+TM, (TX,TY-1+S' 

S) , , 19 iSETPAGE ,0 :TM=TM+1 -.RETURN 

1080 TM=TM-1 

1090 IF Q=TM THEN VP0KE8<HF636+0*4 ,96 :RET 

URN 

1100 FOR T=Q+1 TO TM:TM(T-1 ,0)=TM(T,0) :T 

M(T-1 , 1>=TM(T,1> :TM(T-1,2)=TM(T,2> :TM(T- 

1 ,3)=TM(T,3> :NEXTT 

1110 VP0KE8<HF636+TM*4 , 96 : RETURN 

1120 FOR T=0 TO 15:VPOKE8<HF400+R*16+T,SC 

(Q,T) :NEXTT:RETURN 

1 130 MX (0) =0 :MY (0) =-1 :VPOKE8<HF60A+O*4 ,96 

: GOSUB 870 

1140 SC=SC+(TK(D,2)+1)¥2 

1150 B=0:Q=8:R=BK+15:G0SUB 1 120 :Q=B :SOUN 

D 13,0 



1160 VPOKE8<HF63C+BK*4 , (TY-l+SS) AND255 
1170 VP0KES<HF63D+BK*4,TX:VP0KE8<HF63E+BK* 
4 ,80 :BK=BK+1 :BK=BKAND3 : RETURN 
1180 IF BS<-1 THEN BS=BS+1 ".RETURN 
1190 IF BS=-1 THEN BS=8 sBS (0 ,0) =88 :BS (0 , 
1 ) =4 :BS (0 ,2) =2 :Q=5 :R=5 :G0SUB1 120 :D=7 :R=6 
:GOSUB1120:VPOKE?<HF614, (SS+3) AND255:VP0K 
E8<HF615,88:VP0KE8/HF616 ,64 :VP0KE8<HF618 , (S 
S+3 > AND255 : VP0KE&HF6 1 9 , 88 : VPOKE8<HF6 1 A , 68 
: RETURN 

1200 IF BS>255 THEN 1410 

1210 IF BS>7 THEN BS=BS+1:IF <BSAND7)=0 
THEN 1340 ELSE RETURN 

1220 FOR Q=0 TO 6 :TX=BS (Q ,0) :TY=BS (Q , 1 ) : 
H=BS(Q,2) 

1230 IF TX=64 OR TX=176 THEN H=3-H 
1240 IF TY=0 OR TY=196 THEN H=HX0R1 
1250 TX=TX+( (H=2ORH=3)-(H=0ORH=1) )*4:TY= 
TY+( (H=0ORH=3)-(H=1ORH=2) )*4 
1260 BS(Q,0)=TX :BS(Q,1>=TY :BS(Q,2)=H 
1270 IF Q>BS-1 THEN 1330 

1280 IF Q=0 THEN VPOKE8<HF614 , (TY+SS-1 ) AN 
D255:VP0KE8<HF615,TX:IF TM<2 AND RND ( 1 ) > . 
9 THEN GOSUB 1040 

1290 VPOKE8<HF6 18+0*4 , ( TY+SS-1 ) AND255 : VPO 
KE8<HF61 9+0*4, TX 

1300 FOR 0=0 TO 1:IF ABS (MX (0) -TXX12 AN 
D ABS(MY(0)-TY)<12 THEN GOSUB 1360 
1310 NEXTO 

1320 IF MB=0 AND ABS ( X-TX )< 12 AND ABS(Y- 
TYX12 THEN MB=1 
1330 NEXTO :RETURN 

1340 R=BS¥8-1:F0R 0=0 TO R-l :BS (Q , 1 ) =BS ( 
Q , 1 > +8 : NEXTQ : BS < R , '> =BS < R- 1 ,0 ) +8 : BS < R , 1 > 
=4:BS(R,2)=2: VPOK E8<HF6 1 8+R*4 , < SS+3 ) AND25 
5:VP0KE8<HF619+R*4 ,BS<R,0> : VP0KE&HF61 A+R* 
4 , 72 : B=6 : B=R : R=6+R : BOSUB 1 1 20 : R=B : I F R=BL 
- % 1 THEN BS=BL 
1350 RETURN 

1360 MX (O)=0:MY (0)=-l :VPOKE8<HF60A+O*4 ,96 
: GOSUB 1150 

1370 BP=BP-1:IF BPMOD15>0 THEN RETURN 
1380 BS=BS-1 :VF0KE8<HF6.1A+BS*4,96:VP0KE8>H 
F618+BS*4,BS*8 
1390 IF BS>0 THEN RETURN ELSE RETURN 140 



1 400 VPOKE8-.HF6 1 6 , 96 : VPOKE8<HF6 14,217: 0=2 : 

NEXTO :Q=7 :NEXTQ :BS=256 : RETURN 

1410 IF (BSAND3)=0 THEN TX=BS (0 ,0) +RND ( 1 

) #32-1 6 :TY=BS (0 , 1 ) +RND ( 1 ) *32-16 :GOSUB 1 1 

50 

1420 BS=BS+1:IF BS<=320 THEN RETURN 

1430 BL=BL-<BL<7) :BS=8 :BP=BL*15 :S2=S2+1 : 



S2=S2AND127 

1 440 CLS : VDP ( 9 ) =VDP < 9 ) 0R2 : SS=0 : S3=0 : S4=2 
24 : VDP ( 24 ) =0 : SC=SC+20 

1450 JX=92:JY=64:J*="NEXT AREA" : GOSUB 150 
0: GOSUB 1540 

1460 FOR 0=0 TO 31 :VPOKE?<HF600+Q*4,D»8:V 
POKES<HF602+Q*4 ,96 :NEXT Q 
1470 FOR Q=0 TO 30000 :NEXTQ :CLS 
1480 SETPAGE,1 :A=POINT (S2,16) :SETPAGE,0: 
FOR Q=0 TO 15:F0R R=4 TO 1 1 :COPY (A*16 ,0) 
-STEP(15,15> ,1T0(R*16,Q*16> ,0:NEXT R,Q 
1 490 VDP ( 9 ) =VDP ( 9 ) AND253 : RETURN 
1500 '#1 8<H2A,JX,8<H22,8<HB7,8<HFC,8<H2A,JY, 
8<H22,8<HB9,8<HFC 

1510 FOR Q=l TO LEN(J*> :J J=ASC (MID* ( J* ,0 
,1) ) 

1520 '#1 8<H3A,JJ,8<HCD,8<HBD,8<H00 
1530 NEXTO :RETURN 

1540 JX=104:JY=88:J*="LEFT "+HEX* (LE> :G0 
SUB 1500 

1550 SC*=STR$(SC) :SC*=RIGHT*(SC*,LEN(SC* 
>-l) :SC*=RIGHT*("000"+SC*,4) :JX=80:JY=11 
2: J$=" SCORE "+SC*+"00" : GOSUB 1 500 : Kb I'UKN 
1560 VPOKE8<HF600 ,217 :VPOKE8<HF602 ,96 :VPOK 
E8<HF604 ,217 :VPOKE8(HF606 ,96 : IF (MBAND3> = 1 
THEN TX=X+RND ( 1 ) *32-l 6 :TY=Y+RND ( 1 ) *32-l 
6: GOSUB 1150 

1570 MB=MB+1:IF MB<=64 THEN RETURN 
15B0 LE=LE-1 :MB=0:IF LE<0 THEN RETURN 16 
20 

1590 CLS :VDP (9) =VDP (9) 0R2 :SS=0 :S3=0 :S4=2 
24 : VDP ( 24 ) =0 : TM=0 : TK=0 
1600 IF BSO0 THEN BP=BL*15 :BS=-120 
1610 JX=104:JY=64:J*="READY ! " :GOSUB1500: 
GOSUB 1540: GOTO 1460 

1620 CLS:VDP(9)=VDP(9) 0R2 :VDP (24) =0 
1630 JX=84:JY=88:J*="-GAME OVER-" : GOSUB 1 
500 : GOSUB 1550 

1640 IF STRIG(0)=0 THEN 1640 
1 650 VDP ( 9 ) =VDP ( 9 ) AND253 : I NTERVALOFF : RET 
URN 220 

1660 REM SP-CR,PLT DATA 

1670 DATA F2666F8B8BF6662F 

1680 DATA 2222666662288822 

1690 DATA 2222282228222222 

1700 DATA 2266666688222222 

1710 DATA 8888666666666666 

1720 DATA AAAA44AAA4AAAAAA 

1730 DATA 44A5A4A4A46272BB , 1 ,8 

1740 DATA 000000555333007257444666700400 

037551/1050030003777 
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100 DEFINT A-Z:SCREEN 1,2:WIDTH 30 

110 COLOR 15,1,1:KEY OFF:GOSUB 920 

120 VPOKE 8<H2016,8<H81 :VPOKE &H2017 ,8<HA1 

130 VPOKE 8<H2018,8<H51:VPOKE 8<H2019 ,8<HC1 

140 DIM SC(14,24) ,D*<14) 

1 50 L A*= " 7 ■■>'" : LB*= "01 " : TG*= " 01 " : CL*= " 55 " 

160 ON KEY GOSUB 870,,,, 790 

170 KEY(1)0N:KEY(5)0N 

180 REM ••••••• SCREEN 

190 IF GF THEN 230 

200 ST=ST+1 

210 IF ST=8 THEN LOCATE 1,10:PRINT "YOU 

CLEARED ALL STAGES" :LOCATE 0,21 :END 

220 FOR 1=0 TO 14:READ D* ( I ) :NEXT :READ R 



S 

230 CLS 

240 FOR 1=0 TO 14:L0CATE 0,I:PRINT STRIN 

G*(25,"5") :NEXT 

250 FOR 1=0 TO 14:F0R J=l TO 12 

260 P=VAL(MID*(D*(I) ,J ,1)> 

270 P1=0:P2=0 

280 IF P=l THEN Pl=l :P2=2 

290 IF P=2 THEN P1=3:P2=4 

300 SC(I ,J*2-2+(I MOD 2))=P1 

310 SC(I ,J*2-1+(I MOD 2))=P2 

320 LOCATE J*2-2+ ( I MOD 2) ,1 

330 IF P=l THEN PRINT LA* 

340 IF P=2 THEN PRINT TG* 



350 NEXT J, I 

360 LOCATE 0,15:PRINT STRING* (25 , "9" ) 

370 LOCATE 5,17:PRINT "Fl :GIVE UP!" 

380 LOCATE 5,1B:PRINT "F5: CLEAR !!" 

390 X=0:Y=14:GF=0:FF=0:SS=RS 

400 REM II I H I I MAIN 

410 GOSUB 580 

420 SS=SS-1 

430 LOCATE 0,20:PRINT USING "REST STEPS: 

####" ;SS 

440 IF SS<0 THEN 870 

450 PUT SPRITE , (X*8+8 , Y*8) , 15 

460 IF FF THEN 830 

470 K=STICK(0)+STICK(1 ) 

480 X=X+ (K=3) * ( X<23) - (K=7) * ( X>0) 

490 Y=Y+<K=5)*(Y<14)-(K=1)*(Y>12> 

500 S=STRIG(0)+STRIG(1) 

510 IF S=0 THEN 450 

520 IF SC(Y,X)<>1 AND SC(Y,XX>3 THEN 45 



530 LOCATE 0,20: PR I NT USING "REST STEPS: 



•> 3 - h • 7° a 7=7 A • T -f => > K 157 



####" ;SS-1 

540 LOCATE X,Y:PRINT CL* 

550 SC(Y,X)=0:SC(Y,X+1 >=0 

560 PUT SPRITE 0, (-17,0), 15 

570 GOTO 410 

580 REM •••••** DOWN 

590 LOCATE 24,20:PRINT "WAIT!" 

600 FOR 1=13 TO STEP -1 

610 FOR J=l TO 23 

620 IF SC(I,J><>1 AND SC(I,J)<>3 THEN 66 



630 P1=SC(I+1 ,J) 

640 P2=SC(I+1 ,J+1) 

650 IF (P1=0 AND P2=0) OR (Pl=l AND P2=2 

) THEN GOSUB 690 

660 NEXT J, I 

670 LOCATE 24, 20: PR I NT " " 

680 RETURN 

690 LOCATE 3,1+1 

700 IF SC(I,J)=1 AND P1=0 THEN PRINT LA* 

:SP=1 

710 IF SC(I,J)=1 AND Pl=l THEN PRINT LB* 

:SP=1 

720 IF SC(I,JK>1 AND K13 THEN PRINT TG 

*:SP=3 

730 IF SC(I,JX>1 AND 1 = 13 THEN PRINT LB 

*:SS=SS+3:SP=1 

740 SCd + 1 ,J)=SP:SC(I+1 ,J+1)=SP+1 

750 LOCATE J, I : PR I NT CL* 

760 SC(I ,J)=0:SC(I ,J+1>=0 

770 J=J-1:IF K13 THEN 1=1+1 ELSE J=J+1 

780 RETURN 

790 REM •— — CHECK! 

800 FF=l:FOR 1=0 TO 13:FOR J=l TO 23 

810 IF SC(I,J>=3 THEN FF=0 

820 NEXT J,I:RETURN 

830 REM ■•»•>»■ SUCCESS! 

840 LOCATE 4 ,7 : PR I NT "CONGRATULATIONS ! " 

850 S=STRIG(0)+STRIS(1 ) 

860 IF S=0 THEN 850 ELSE 180 

870 REM •>>«»•• GIVE UP! 

880 GF=1 



890 LOCATE 9,7:PRINT "GIVE UP!" 

900 S=STRIG(0)+STRIG(1 > 

910 IF S=0 THEN 900 ELSE 180 

920 REM •••••»• CHARACTER 

930 READ C*,D*:IF C*="END" THEN 970 

940 FOR 1=0 TO 7:A=ASC(C*)*8+I 

950 VPOKE A,VAL("S<H"+MID*(D*,I*2+1 ,2) ) 

960 NEXT:GOTO 930 

970 READ C:IF C=5963 THEN RETURN 

980 S*="":FOR K=0 TO 1 :READ D* 

990 FOR 1=0 TO 15 

1000 S*=S*+CHR*(VAL( U 8.:H"+MID*(D*, 1*2+1 ,2 
)) ) 

1010 NEXT I ,K:SPRITE*(C)=S*:GOTO 970 
1020 DATA 7,FFFFFFFFFFFFFF00,i',FEFEF6F6F 
64EFE00 

1030 DATA '5,F7F3EDEFDBFDFB00,I,FEFEBEB6C 

EBEBE00 

1040 DATA 7,0103FF3F0F1F3C60,7,0080FEF8E 

0F07B0C 

1050 DATA 9, CC33CC33CC33CC33,*, 880022008 

8002200, END, 

1060 DATA 0,EFE0C000C0E0EF00000000000000 

0000 , EE0E0600060EEE00IZI000000000000000 

1070 DATA 5963 

1080 REM »••»>»■ DATA 

1090 DATA 000000000010,002000100010,0001 

00010010,000100010010 

1100 DATA 000010021010,001100101100,121210 

10101200,010101101000 

1110 DATA 010011011100,010010010100,0010 

12010100 ,001 1101 1 1000 

1120 DATA 001101101000,001001001000,0001 

00100100,10 

1 1 30 DATA 000000000000 , 000000000000 , 0000 

00000020 ,0002000001 00 

1140 DATA 000100200100,001001101000,0001 

11011000,001010010000 

1150 DATA 001010010000,001101110000,0001 

10101200,0001 10101000 

1160 DATA 000101101000,001001010000,0001 



01001000,14 

1 1 70 DATA 000000000000 
00100000,000000110000 

1180 DATA 000000010020 
01101010,000102111100 

1190 DATA 000101010100 

01010010,010110110100 

1200 DATA 001010011010 

00101 100,6 

1210 DATA 000000000000 
00100100,000101001000 
1220 DATA 000101001000, 
10101010,001010110010 

1230 DATA 001002010010. 

10010100,101101101000 

1240 DATA 010100101100. 

00010010,19 

1250 DATA 000000020000, 

10100101 ,100101001010 

1260 DATA 010011000110, 

10010010,010100100100 

1270 DATA 001101100100, 

10101 100,010010110100 

1280 DATA 010010010010, 

10010010,19 

1290 DATA 000000020200, 

10010010,1000100101 10 

1300 DATA 010011010101, 

01001 101 ,010101001010 

1310 DATA 001100101010, 

01010010,001010100100 

1320 DATA 000110010010, 

10010001,22 

1330 DATA 010100020010, 

00100011 ,001001020101 

1340 DATA 020101001011, 

10100110,001010110100 

1350 DATA 010110010102, 

10010110,010010100100 

1360 DATA 011001100010, 

10101 110,17 



, 000000000000 
,000020110010 
,001011100100 
,010100101100 
, 000000000200 
,001011001100 
,010010101100 
,100100110100 
,010000100200 
,010010100100 
,001001001000, 
,100100100100, 
,200200100100, 
,010101010101 , 
,001001110100, 
,000100010010, 
010100100010, 
011010001010, 
100100101010, 
101101010100, 



,0000 
,0000 
,0011 
,0011 
,0002 
,0010 
,0110 
,0101 
,0100 
,0010 
,0010 
,1000 
,0100 
,0101 
,0001 
,0000 
,0011 
,0010 
,0110 
1001 




100 DEFINT A-Z :SCREEN 5.3 

110 COLOR 15,1 ,1 :CLS:KEY OFF:GOSUB 1040 

1 20 A=RND ( -T I ME*5 ) : OPEN " GRP : " AS# 1 

130 COLOR=(1 ,0,0,2) :COLOR=(6,2,0,0) 

140 COLOR=(7, 0,0,0) :MS=0:READ CL 

150 FOR 1=0 TO 9:READ AY ( I ). :NEXT 

160 REM •••••>■ STAGE 

170 SET PAGE 0,0:CLS 

180 FOR 1=0 TO 7:PUT SPRITE I, (0,213) ,0: 

NEXT 

190 IF GF=0 THEN GF=0 :MS=MS+1 : IF MS=4 TH 

EN SCREEN 1 :LOCATE 7,7:PRINT ".»££Cr 'HW+fi 

f*~m-" : LOCATE 10,12:PRINT "fc" ,U»L . . . " :E 

ND 

200 IF MS>1 THEN GOSUB 1040: READ CL 

210 FOR 1=0 TO 199 

220 X=RND(1)*250+10 

230 Y=RND(l)*150+20 

240 LINE <X,Y)-(X-5,Y+12) ,2+1 MOD 4 

250 NEXT 

260 PRESET (0,175) 

270 FOR 1=5 TO 260 STEP 5 

280 Y=RND(1)*10+170 

290 LINE -(1*5, Y) ,6 

300 NEXT 

310 PAINT(0,190) ,6,6 



320 FOR 1=0 TO 199 
330 X=RND<1)*240+10 
340 Y=RND(1)*30 

350 CIRCLE(X,Y) , 10+RND ( 1 ) *8 ,7 
360 PAINT(X,Y) ,7,7 
370 NEXT:GOSUB 890 
380 X=48:Y=143:XX=160:YY=111 
390 TY=0:CC=0:PN=0:D1=0:D2=0:JF=0 
400 PLAY " T255V 1 503L 1 6CGFGEFEG " , " T255V 1 5 
02L16CDEDCDEC" 
410 REM — — t MAIN 
420 K=STICK<0>+STICKU) 

430 X=X- (X>8) * (K=7) *8+ ( X<240) * (K=3) *8 
440 IF K=5 THEN MN=0 
450 IF K=l THEN MN=1 
460 S=STRIG(0)+STRIG(1) 
470 IF S AND JF=0 THEN JF=1 :JT=0 
480 IF JF THEN Y=Y+AY < JT) : JT=JT+1 : IF JT= 
10 THEN JF=0 

490 PUT SPRITE 0,(X,Y) ,15,1+MN 
500 F1=0:F2=0 

510 IF ABS(X-XX)<30 THEN FOR I=X TO X-50 
STEP -2:PUT SPRITE , ( I ,Y> , 15 , 1+MN :NEXT 
:X=X-50:OD=D2:D2=D2+3+6*MN:F2=l :GOSUB 87 
0:IF X<0 THEN X=0 
520 IF ABS1X-FXX30 AND ABS(Y-FY)<30 THE 



N OD=Dl :D1=D1+1+4*MN:F1=1 :GOSUB 850 

530 TT=TT+1:IF TT<KK THEN 580 

540 COLOR=(1 ,5,7,7) 

550 TT=0:IF KK>50 THEN KK=RND ( 1 ) *50+30 E 

LSE KK=RND(1)*30+15 

560 COLOR=(l ,0,0,1) 

570 PLAY "T255V1501L16.CAECV12C4" 

580 C0L0R=(C0+2,4,4,4) 

590 CO=CO+1:IF C0=>4 THEN CO=0 

600 C0L0R=(C0+2, 0,0,1) 

610 IF D1M00 THEN W*="ALIEN" :GF=1 :GOTO 

920 

620 IF D2M00 THEN W*=" YOU " :GOTO 920 

630 REM ••■■•*• MONSTER 

640 XX=XX+F2*30 

650 PUT SPRITE 1 , ( XX , Y Y) ,CL , 10+PN*4 

660 PUT SPRITE 2 , (XX , YY+32) ,CL , 1 1+PN*4 

670 PUT SPRITE 3 , (XX+32, YY) ,CL , 12+PN*4 

680 PUT SPRITE 4 ,( XX+32 , YY+32) ,CL , 13+PN* 

4 

690 TY=TY+1:IF TY=15 THEN PN=1-PN :TY=RND 

( 1 ) *5 

700 XX=XX+SGN(RND(l)-.8)*2 

710 IF XX>192 THEN XX=192 

720 IF XX<0 THEN XX=0 

730 IF CC AND F1=0 THEN 790 ELSE CC=1 

740 FX=XX-16:FY=YY+8 

750 WX=(X-FX) /8:WY=(Y-FY)/10 

760 IF MS=2 THEN WX=WX+2 :WY = 16 

770 IF MS=3 THEN WX=WX-6 :WY=0 :FY=Y-3 

780 PLAY "" ,"T255V1501L8CV12CV7C" 

790 IF MS<>2 THEN FX=FX+WX :FY=FY+WY 

800 IF MS=2 THEN FX=FX+WX :FY=FY-WY :WY=WY 
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SHORT PROGRAM 




OZOZRVTh 



mf&5ffi&u]'<-viz.wm 




1000 COLOR 15, 0, 1 

1010 CLEAR 500, &HDI300: DEFINT A-Z : SCRE 

EN 5: VDP(9)=VDP(9)0R2: SET PAGE 0, 

1020 DIM V(6) : J=0 

1030 XS=16: YS=16: XW!.=XS/2: YW!=YS/2: P 

I#=ATN(1>*4 

1040 PI#=ATN(1)*4: V1#=4*2/256*PI# : V2#= 

5*2/256*PI# 

1050 GOSUB 1500 

1060 X8=0: YB=0: X9=12G: Y9=256+YS: C=0 : 

GOSUB 1660 
1070 ' 
10B0 1=0 

1090 FOR Y = TO 15 
1100 LINE ( 12B, 128 ) - STEP ( XS*8-1 , 

YS*2-1 ) , , BF, PSET 
1110 FOR S = TO 3 
1120 T=Y*16+S*4+4 
1130 FOR U = TO 4 

1140 X9 = SIN(T*Vl#)*<XW!-l)*U/4+X 
W!: Y9 = C0S(T*V2#)*(YW!-l>*U/4+YW! 
1150 V(0)=128: V(1)=0: V(4>=8: V<5 
)=B: V(6)=!<H98 

1160 V(2)=128+XW!+X9+S*32: V(3>=12 
8+YWI+Y9: GOSUB 1680 
1170 T=T+1 
1180 NEXT U 
1190 NEXT S 

1200 V(0>=128: V(l)=128: V(2>=0: V(3> = 
I*YS: V(4)=XS*B: V(5)=YS*2: GOSUB 1680 
1210 I = (I+7)M0D16 
1220 NEXT Y 

1230 V(0)=0: V(l>=256: V(2)=0: V<3)=0: V 
(4) =128: V(5)=YS: GOSUB 1680 



1240 ' 

1250 FOR S = 3 TO STEP '-1 

1260 X8=128: Y8=0 : X9=12B+XS»3-1 : Y9=2 

55: C=0: GOSUB 1660 

1270 V<0)=XS*S*2: V(2)=128: V(4)=XS»2: 

V(6)=8<H98: SS=0 : SD=0 
1280 FOR I = 5 TO 10 STEP 5: GOSUB 173 
0: V(2)=V(2)+XS: NEXT I 

1290 V(0)=128+XS: V(1)=0: V(2>=0: V<3> 
=S*256: V(4)=XS: V<5)=256 
1300 V(6)=&HD0: GOSUB 1680 
1310 NEXT S 
1320 ' 
1330 I = 5 

1340 FOR X = 1 TO 15 

1350 V(0)=0: V(2)=X*XS: V(4)=XS: V<6> = 
&HD0 

1360 FOR SS = TO 3: SD=SS : GOSUB 173 
0: NEXT SS 

1370 I = (I+5)M0B16 

1380 NEXT X 
1390 ' 

1400 RESTORE 1460 

1410 FOR I=&HD000 TO &HD034 : READ A*: PO 
KE I, VAL("8<h"+A*> : NEXT I 
1420 POKE &HD000, 7*XS 
1430 DEFUSR=8<HD001 
1440 A=USR<0) 
1450 END 

1460 DATA 00, FB, 11 ,00,00, 7B,3C,FE, 04,20, 
06, 3A ,00,00,82,57 

1470 DATA AF,5F,0F,0F,0F,F6,1F,F5,00,21 , 
9E,FC ,7E,C6,04,BE 



1510 RESTORE 1580 

1520 FOR Y = TO 7 

1530 READ C* 

1540 FOR X = TO 

1550 PSET ( X+128, Y ) 

MID*< C*, X+l , 1 ) ) , PSET 

1560 NEXT X, Y 

1570 RETURN 

1580 DATA 00666600 

1590 DATA 0688f+60 

1600 DATA 688888-f6 

1610 DATA 688888*6 

1620 DATA 68888886 

1630 DATA 68888886 

1640 DATA 06888860 

1650 DATA 00666600 

1660 ' cl ear box 

1670 V(2)=X8: V(3)=YS 

)=Y9-Y8+1: V(6)=?<HC0: 

1680 ' 

1690 A = VARPTR(V(0) > 

1 700 FOR J = TO 1 1 : 



V(4)=X9-X8+1 : 
VDP(45)=C 



VDPC33+J) = PEEK (A 



+J) : NEXT J 

1710 VDP(46> = 0: VDP(47) = V(6> 

1720 RETURN 

1730 ' 

1740 Y7=I*YS 

1750 V(1)=Y7+256*SS 

6: GOSUB 1680 

1760 V(1)=256*SS: V (3) =Y6+256*SD 

7: GOSUB 1680 

1770 RETURN 



Y6=256-Y7 

V(3)=; 



6*SD: V(5)=Y 




810 PUT SPRITE 5, (FX, FY) ,8,9 

820 IF FX<0 OR FX>256 OR FY<0 OR FY>160 

THEN CC=0 

830 GOTO 410 

840 REM •>••••» DAMAGE 

850 LINE (5+OD,180)-(5+Dl,190) ,6,BF 

860 RETURN 

870 LINE ( 130+OD, 180)- (130+02,190) ,6, BF 

880 RETURN 

890 LINE (5,1B0>-(105,190) ,10,BF 

900 LINE <130,180)-<230,190) ,10,BF 

910 RETURN 

920 REM ■— — GAME OVER 

930 PRESET (80, 70) :PRINT#1 , "GAME OVER!" 

940 PRESET (80, 90) :PRIMT#1 ,W*;" WIN!" 

950 FOR 1=0 TO 2999:NEXT 

960 S=STRIG(0)+STRIG(1) 

970 PUT SPRITE 0, (X , Y) , 10 , 1+PN 

980 PUT SPRITE 1 , (XX , Y Y) , 12 , 10+PN*4 

990 PUT SPRITE 2 , (XX , YY+32) , 12 ,1 1+PN*4 

1000 PUT SPRITE 3,(XX+-32,YY) ,12,12+PN*4 

1010 PUT SPRITE 4, (XX+32, YY+32) ,12,13+PN 

#4 

1020 TY=TY+1:IF TY=>10 THEN PN=1-PN:TY=R 

ND ( 1 ) *5 

1030 IF S=0 THEN 960 ELSE 160 

1040 REM — — — CHARACTER 

1050 READ C:IF C=5963 THEN RETURN 

1060 S*="" :FOR K=0 TO 1 :READ D* 

1070 FOR 1=0 TO 15 

1080 S*=S*+CHR*(VAL < "S<H"+MID* (D* , 1*2+1 ,2 

) ) ) 



1090 NEXT I ,K:SPRITE*(C)=S*:GOTO 1050 
1100 DATA 0,00030F1F1F1F1F1F1F0F03000304 
0300,00E0F8FCFCFCFCFCFCF8E080000000C0 
1110 DATA 1 ,011C3A3A1C180F1F1E1E1E1F3BF0 
6020 , C030083030E0C08000000080C0C0C0E0 
1120 DATA 2,1C3A3A1C181E1F1F1E1E1E1F1B18 
1 8 1 C , 000 1 0204083070C0C0000080C0C0C0E0 
1130 DATA 10,00000103ei704081FlF3F3919131 
00800 , 30C0E0FE3F7FFFFFFFE7830303070F0F 

1140 DATA 11,000102020000000000000103030 

6160D,277FDF3F7F7FFF8F77F7F7EF00000000 
1150 DATA 12,010000008080C1C1C3C3C6C6CD9 
DBAE2 , 008080C0A0A0A09 1 1 24E84A4282B4848 
1160 DATA 13,D1920A0985E09886C1C0A070667 
83C04 ,4824241 4 12AAAA221 183641808000000 
1170 DATA 14,003F7FFFC78383010101030F000 
00000 , 00E0F030 1 8 1 CCEFFFDF 1 F8787C7E3E3E 
1180 DATA 15.00010202000000000002060F1C1 
85834, 277FDF3F7F7FFFC7BBBDBD5D0E0F0300 
1190 DATA 16,00FC3B0C06060303030306060C1 
97 1 E2 , 000284780848485050505088A8282844 
1200 DATA 17,C484080B84F08E81C0C08000408 
00080 , 245452929 1 860890502020 1 000000000 
1210 DATA 9, 020801 15122D3F716E0FBFBF0E6D 
33 1 E , 405224445AA0E4F8E6406670C9C08000 
1220 DATA 5963,13 
1230 DATA -20,-10,-5,-2,-1 
1240 DATA 1 ,2,5,10,20 

1250 DATA 10, 0000000 103070403070F07070B1 
D1D1E ,000F7FF3C78EF9778FDFDFDF9F6F76F4 
1 260 DATA 11,0F1C1B17130D1E3E3F1 E2 A327D7 
DFB9B ,BE3EDDEDF5E3DB9D3EDDEDEBF7F7FB2A 
1270 DATA 12,00D0D0B83EDEE7EBECEFCFB7B77 



7EFDF , 00000000000000B0000080C080C00080 

1280 DATA 13,7B74AFDFEED2BD7D726F0F37BBB 
CB667 , 8040C0E06080E0F0F06058B8B8BCB663 
1290 DATA 14,00000000000303070403070F1F1 
10E1E ,0000003CFFF3C78FFC736F9FBF5CD9EB 
1300 DATA 15,1F7C3B77493E7E2E4F76E5F37DF 
B776E ,BB3BBADDEDCB93BD7D7DBDD2D7EFED59 
1310 DATA 16,00000000C0F8F72FDFEFF4FAFB3 
7D7EF , 000000000000408080C0C0E030C8A070 
1320 DATA 17,BE6C4B97DFDFAEB2B5AF2F57DBD 
D9E0C ,F0F0789BA870FCFE6C92BEBFBEDCD868 
1330 DATA 9,00030E3C7B67EFCFB375EEEF777B 
3D0D , 9224F0FA7B70A4D8D8B870B0A0A08000 
1340 DATA 5963,12 

1350 DATA 10,000000010100000000000000000 

00000, 007CFFE1C7FF7E0E0E0E070301010103 
1360 DATA 11 ,010F3E7060C1C1810121371F0C0 
0000 1 , FFFFE7C6D6B6B6B6B3B3B333636 1 C 1 80 
1370 DATA 12,00C0E0E3E7EFCC0F07000081838 
79FBC , 000000C6FF 1 F7FFFFEE0E0C0C0800000 
1380 DATA 1 3, F0E1E7FF7C6E676373333 118180 
C8CB6 , 00C0E06060303 1 1 B 1 F8EC0F33E0C0000 
1390 DATA 1 4, 00000000070F0F0E07000 103070 
70300 , 000000009CFE0E3EFCE0C0800080E0FB 
1400 DATA 15,00001F3F70E1C103030786CE7C3 
80000 , 3FFFFFFFCEDF9B9B33373676E6C60E0C 
1410 DATA 16,000000000073FFF1C7FF7F1C387 

070E0 , 000000000080C0E0E0E0C000000038FC 

1420 DATA 17,FFFFFEFF7F6C6C667637333361E 
0C000 , E6870383C6E0603 1 3F 1 E0080C6FE7C00 
1430 DATA 9,0018245B5B271E00000C122D2D13 
0F00 , 40 1 08430E09A000000 1 06 1 82C8F2 1 840 
1440 DATA 5963,11 
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